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PROTEUS THREE-DIMENSIONAL 
NAVIER-STOKES COMPUTER CODE - VERSION 1.0 

Volume 3 - Programmer's Reference 

Charles E. Towne, John R. Schwab, Trong T. Bui 

National Aeronautics and Space Administration 
Lewis Research Center 
Cleveland, Ohio 


SUMMARY 


A computer code called Proteus has been developed to solve the three-dimensional, Reynolds-averaged, 
unsteady compressible Navier-Stokes equations in strong conservation law form. The objective in this ef- 
fort has been to develop a code for aerospace propulsion applications that is easy to use and easy to modify. 
Code readability, modularity, and documentation have been emphasized. 

The governing equations are written in Cartesian coordinates and transformed into generalized 
nonorthogonal body-fitted coordinates. They are solved by marching in time using a fully-coupled 
altemating-direction-implicit solution procedure with generalized first- or second-order time differencing. 
The boundary conditions are also treated implicitly, and may be steady or unsteady. Spatially periodic 
boundary conditions are also available. All terms, including the diffusion terms, are linearized using 
second-order Taylor series expansions. Turbulence is modeled using either an algebraic or two -equation 
eddy viscosity model. 

The program contains many operating options. The thin-layer or Euler equations may be solved as 
subsets of the Navier-Stokes equations. The energy equation may be eliminated by the assumption of 
constant total enthalpy. Explicit and implicit artificial viscosity may be used to damp pre- and post-shock 
oscillations in supersonic flow and to minimize odd-even decoupling caused by central spatial differencing 
of the convective terms in high Reynolds number flow. Several time step options are available for conver- 
gence acceleration, including a locally variable time step and global time step cycling. Simple Cartesian or 
cylindrical grids may be generated internally by the program. More complex geometries require an ex- 
ternally generated computational coordinate system. 

The documentation is divided into three volumes. Volume 1 is the Analysis Description, ai 1 presents 
the equations and solution procedure used in Proteus . It describes in detail the governing equations, the 
turbulence model, the linearization of the equations and boundary conditions, the time and space differ- 
encing formulas, the ADI solution procedure, and the artificial viscosity models. Volume 2 is the User's 
Guide, and contains information needed to run the program. It describes the program s general features, 
the input and output, the procedure for setting up initial conditions, the computer resource requirements, 
the diagnostic messages that may be generated, the job control language used to run the program, and se- 
veral test cases. Volume 3, the current volume, is the Programmer's Reference, and contains detailed in- 
formation useful when modifying the program. It describes the program structure, the Fortran variables 
stored in common blocks, and the details of each subprogram. 

A two-dimensional/axisymmetric version of Proteus code also exists, and was originally released in late 
1989. 
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1.0 INTRODUCTION 


Much of the effort in applied computational fluid dynamics consists of modifying an existing program 
for whatever geometries and flow regimes are of current interest to the researcher. Unfortunately, nearly 
all of the available non-proprietary programs were started as research projects with the emphasis on dem- 
onstrating the numerical algorithm rather than ease of use or ease of modification. The developers usually 
intend to clean up and formally document the program, but the immediate need to extend it to new ge- 
ometries and flow regimes takes precedence. 

The result is often a haphazard collection of poorly written code without any consistent structure. An 
extensively modified program may not even perform as expected under certain combinations of operating 
options. Each new user must invest considerable time and effort in attempting to understand the underlying 
structure of the program if intending to do anything more than run standard test cases with it. The user's 
subsequent modifications further obscure the program structure and therefore make it even more difficult 
for others to understand. 

The Proteus three-dimensional Navier-Stokes computer program is a user-oriented and easily-modifiable 
flow analysis program for aerospace propulsion applications. Readability, modularity, and documentation 
were primary' objectives during its development. The entire program was specified, designed, and imple- 
mented in a controlled, systematic manner. Strict programming standards were enforced by immediate peer 
review of code modules; Kemighan and Plauger (1978) provided many useful ideas about consistent pro- 
gramming style. Every subroutine contains an extensive comment section describing the purpose, input 
variables, output variables, and calling sequence of the subroutine. With just three clearly-defined ex- 
ceptions, the entire program is written in ANSI standard Fortran 77 to enhance portability. A master ver- 
sion of the program is maintained and periodically updated with corrections, as well as extensions of general 
interest (e.g., turbulence models.) 

The Proteus program solves the unsteady, compressible, Reynolds-averaged Navier-Stokes equations in 
strong conservation law form. The governing equations are written in Cartesian coordinates and trans- 
formed into ge eralized nonorthogonal body-fitted coordinates. They are solved by marching in ime using 
a fully-coupled altemating-direction-implicit (ADI) scheme with generalized time and space differencing 
(Briley and McDonald, 1977; Beam and Warming, 1978). Turbulence is modeled using either the Baldwin 
and Lomax (1978) algebraic eddy-viscosity model or the Chien (1982) two-equation model. All terms, in- 
cluding the diffusion terms, are linearized using second-order Taylor series expansions. The boundary 
conditions are treated implicitly, and may be steady or unsteady. Spatially periodic boundary conditions 
are also available. 


The program contains many operating options. The thin-layer or Euler equations may be solved as 
subsets of the Navier-Stokes equations. The energy equation may be eliminated by the assumption of 
constant total enthalpy. Explicit and implicit artificial viscosity may be used to damp pre- and post-shock 
oscillations in supersonic flow and to minimize odd-even decoupling caused by central spatial differencing 
of the convective terms in high Reynolds number flow. Several time step options are available for conver- 
gence acceleration, including a locally variable time step and global time step cycling. Simple grids may be 
generated internally by the program; more complex geometries require external grid generation, such as that 
developed by Chen and Schwab (1988). 


The documentation is divided into three volumes. Volume 1 is the Analysis Description, and presents 
the equations and solution procedure used in Proteus. It describes in detail the governing equations, the 
turbulence model, the linearization of the equations and boundary conditions, the time and space differ- 
encing formulas, the ADI solution procedure, and the artificial viscosity models. Volume 2 is the User's 
Guide, and contains information needed to run the program. It describes the program's general features, 
the input and output, the procedure for setting up initial conditions, the computer resource requirements, 
the diagnostic messages that may be generated, the job control language used to run the program, and se- 
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veral test cases. Volume 3, the current volume, is the Programmer's Reference, and contains detailed in- 
formation useful when modifying the program. It describes the program structure, the Fortran variables 
stored in common blocks, and the details of each subprogram. 

A two-dimensional/axisymmetric version of Proteus code also exists, and was originally released in late 
1989 (Towne, Schwab, Benson, and Suresh, 1990). 

The authors would like to acknowledge the significant contributions made by their co-workers. Tom 
Benson provided part of the original impetus for the development of Proteus , and did the original coding 
of the block tri-diagonal inversion routines. Simon Chen did the original coding of the Baldwin-Lomax 
turbulence model, and consulted in the implementation of the nonlinear coefficient artificial viscosity model. 
William Kunik developed the original code for computing the metrics of the generalized nonorthogonal grid 
transformation. Frank Molls has created a separate diagonalized version of the code. Ambady Suresh did 
the original coding for the second-order time differencing and for the nonlinear coefficient artificial viscosity 
model. These people, along with Dick Cavicchi, Julie Conley, Jason Solbeck, and Pat Zeman, have also 
run many debugging and verification cases. 
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2.0 PROGRAM STRUCTURE 


2.1 FLOWCHART 

In this section, a flow chart is presented showing the overall sequence of tasks performed by the three- 
dimensional Proteus computer code. Depending on the various options used in a particular run, of course, 
some of the elements in the chart may be skipped. 



Figure 2.1 - Flow chart for the 3-D Proteus computer code. 
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Figure 2.1 - Concluded. 
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2.2 SUBPROGRAM CALLING TREE 

In this section, the calling sequence for the various subprograms in the Proteus 3-D code is shown using 
a tree structure. The subheadings correspond to the elements of the flow chart shown in the previous sec- 
tion. The main program, listed in the first column, calls the subprograms in the second column, which in 
turn call those in the third column, etc. 1 Since some Cray library routines are called multiple times, only the 
first call from a subprogram is shown for these routines. For any given case, of course, some of the sub- 
programs shown will not be used. The subprograms needed for a particular case will depend on the com- 
bination of input parameters being used. The individual subprograms are described in detail in Section 4.0. 


INITIALIZATION 

Read and print input. 

MAIN 

INPUT 

ISAMAX 




Get grid and metric parameters. 

MAIN 

GEOM 

PAK 

METS 

ROBTS 

CUBIC 

OUTPUT 

PRTOUT 


Get initial flow field. 


- 



MAIN 

INITC 

REST 

INIT 

FTEMP 

EQSTAT 

TURBBL 

KEINIT 

YPLUSN 

METS 

BLOUT 

BLIN 

TURBBU 

YPLUSN 

PRODCT 

VORTEX 

VORTEX 

ISRCHFLT 

ISRCHFGT 

ISAMIN 

ISAMAX 

WHENFLT 

GATHER 

ISRCHFGT 

VORTEX 

BLOUT 

BUIN 

VORTEX 

VORTEX 

ISRCHFLT 

ISRCHFGT 

ISAMIN 

ISAMAX 

WHENFLT 

GATHER 

ISRCHFGT 

VORTEX 

Set point -by-point boundary condition values. 

MAIN 

BCSET 




1 Throughout this Programmer's Reference, elements of the Fortran language, such as input variables and subpro- 
gram names, are printed in the text using uppercase letters. However, in most implementations, Fortran is case- 
insensitive. The Proteus source code itself is written in lowercase. 
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Initialize plot files and print initial or restart flow field. 

MAIN 

PLOT 

OUTPUT 

OUTW 

VORTEX 

PRTOUT 




SET UP FOR TIME STEP 

Compute time step size. 

MAIN 

TIMSTP 

ISAMAX 


Reset boundary conditions if time -dependent. 

MAIN 

TBC 



FILL BLOCK COEFFICIENT MATRIX 

Add extra data line at N + 1 if spatially periodic in sweep direction. 

MAIN 

EXEC 

PERIOD 



Compute coefficients of governing equations. 

MAIN 

EXEC 

EQSTAT 

COEFC 

COEFX 

COEFY 

COEFZ 

COEFE1 

COEFE2 

- 
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Add boundary conditions. 


MAIN 

EXEC 

EQSTAT 

BCGEN 

BCQ 

BCMET 

BCGRAD 




BCUVEL 

BCMET 

BCGRAD 




BCWEL 

BCMET 

BCGRAD 




BCWVEL 

BCMET 

BCGRAD 




BCPRES 

BCMET 

BCGRAD 




BCTEMP 

BCMET 

BCGRAD 




BCDENS 

BCMET 

BCGRAD 




BCNVEL 

BCVN 

BCMET 




BC1VEL 

BCIMET 

BCV1 

BCMET 




BC2VEL 

BCIMET 

BCV2 

BCMET 




BC3VEL 

BCIMET 

BCV3 

BCMET 




BCF 

BCFLIN 

BCMET 




ISRCHEQ 

BLKOUT 




BCELIM 

SGEFA 

SGESL 



Compute resic lals without artificial viscosity terms (sweep 1 only.) 
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SOLVE DIFFERENCE EQUATIONS 


Perform matrix inversion. 

MAIN 

EXEC 

ADI 

BLKOUT 

BLK4P 

BLK4 

FILTER 

ISAMAX 






ISRCHEQ 

BLKOUT 




BLK5P 

BLK5 

FILTER 

ISAMAX 






ISRCHEQ 

BLKOUT 



UPDATE 




Update boundary values from first two sweeps. 

MAIN 

EXEC 

BVUP 

EQSTAT 

BCGEN 

BCQ 

BCMET 

BCGRAD 





BCUVEL 

BCMET 

BCGRAD 





BCWEL 

BCMET 

BCGRAD 





BCWVEL 

BCMET 

BCGRAD 





BCPRES 

BCMET 

BCGRAD 





BCTEMP 

BCMET 

BCGRAD 





BCDENS 

BCMET 

BCGRAD 





BCNVEL 

BCVN 

BCMET 





BC1VEL 

BCIMET 

BCV1 

BCMET 





BC2VEL 

BCIMET 

BCV2 

BCMET 

| 


| 


BC3VEL 

BCIMET 

BCV3 

BCMET 



■ 


BCF 

BCFLIN 

BCMET 





ISRCHEQ 

BLKOUT 





SGEFA 

SGESL 




FINISH TIME STEP AND CHECK RESLUTS 


Update auxiliary variables. 


MAIN 

EQSTAT 

FTEMP 
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Update turbulence parameters. 


MAIN 

TURBBL 

BLOUT 

VORTEX 

ISRCHFLT 

ISRCHFGT 

ISAMIN 

ISAMAX 

WHENFLT 

GATHER 



BLIN 

ISRCHFGT 

VORTEX 


TURBCH 

YPLUSN 

VORTEX 



PRODCT 

EXECT 

PERIOD 

SWUP 

SWDOWN 

UPDTKE 


Check for convergence, and get CPU time remaining. 


MAIN 


CONV 

TREMAIN 


ISAMAX 


GENERATE OUTPUT 


Print flow field output. 


MAIN 

OUTPUT 

VORTEX 

PRTOUT 


OUTW 



Write plot and restart files. 


MAIN PLOT 

REST 


Print convergence history. 


MAIN 


PRTHST 


2.3 PROGRAMMING CONTENTIONS AND NOTES 


2.3.1 Computer & Language 

At NASA Lewis Research Center, Proteus is normally run on a Cray X-MP or Y-MP computer. With 
just three known exceptions, it is written entirely in ANSI standard Fortran 77 as described in the CF77 
Compiling System, Volume 1: Fortran Reference Manual (Cray Research, Inc., 1990). The first exception 
is the use of namelist input. With namelist input, it's relatively easy to create and/or modify input files, to 
read the resulting files, and to program default values. Since most Fortran compilers allow namelist input, 
its use is not considered a serious problem. The second exception is the use of + C A L L statements to in- 
clude + COMDECKS, which contain the labeled common blocks, in most of the subprograms. This is a 
Cray UPDATE feature, and therefore the source code must be processed by UPDATE to create a file that 
can be compiled. 2 UPDATE is described in the UPDATE Reference Manual {Cray Research, Inc., 1988). 
Since using the *CALL statements results in cleaner, more readable code, and since many computer systems 
have an analogous feature, the +CALL statements were left in the program. The third exception is the use 
of lowercase alphabetic characters in the Fortran source code. This makes the code easier to read, and is 
a common extension to Fortran 77. 


2 See the example in Section 8.1 of Volume 2. 
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Several library subroutines are called by Proteus. SGEFA and SGESL are Cray versions of UNPACK 
routines. SASUM and SNR M2 are Cray Basic Linear Algebra Subprograms (BLAS). GA I HER is a Cray 
Linear Algebra routine. ISAMAX, ISAMIN, ISRCHEQ, ISRCHFGT ISRCHFLT, and WHENFLT are 
Cray search routines. TREMAIN is a Cray Fortran library routine. All of these routines are descnbed in 
detail in Section 4.0 of Volume 3. In addition, SGEFA and SGESL are descnbed in Volume 3: UMCOS 
Math and Scientific Library Reference Manual (Cray Research ^c., 1989b) and ^„Dongana, Mol^, 
Bunch, and Stewart (1979); SASUM, SNRM2, GATHER, ISAMAX ISAMIN ISRCHEQ, ISRCHFGT, 
ISRCHFLT and WHENFLT are described in Volume 3: USICOS Math and Scientific Library Reference 
Manual (Cray Research, Inc., 1989b); and TREMAIN is described in Volume 1: UNICOS Fortran Library 
Reference Manual (Cray Research, Inc., 1989a). 


The Proteus code is highly vectorized for optimal performance on the Cray, pie coefficient generation 
is vectorized in the ADI sweep direction. Since the coefficient matrix is block tridiagonal, the equations are 
solved using the Thomas algorithm. This algorithm is recursive, and therefore cannot be vectonzed in the 
sweep direction. However, by storing the coefficients and source terms in all three coordinate directions, 
the algorithm can be vectorized in one of the non- sweep directions. This increases the storage required b) 
the program, but greatly decreases the CPU time required for the ADI solution. 


2.3.2 Fortran Variables 


Variable Names 

In developing Proteus, code readability has been emphasized. We have therefore attempted to choose 
Fortran variable names that are meaningful. In general, they either match the notation used in the analysis 
description in Volume 1, or are in some way descriptive of the parameter bemg represented. For example 
RHO, U, V, W, and ET are the Fortran variables representing the density p, the velocities u, v, and w, and 
the total energy per unit volume E r - 


Real and Integer^ Variables. 

In general, the type (real or integer) of the Fortran variables follows standard Fortran convention (i.e., 
those starting with I, J, K, U, M, or N are integer, and the remainder are real.) There are, however, several 
variables that would normally be integer but are explicitly declared to be real. These are noted in the input 
description in Section 3.0 of Volume 2, and in the description of common block vanables m Section 3.U 
of this volume. 


Array Dimensions 

Most Fortran arrays are dimensioned using dimensioning parameters. These parameters are set in 
COMDECK PARAMS1. This allows the code to be re-dimensioned simply be changing the appropnate 
parameters, and then recompiling the entire program. The dimensioning parameters are descnbed m Sec- 
tion 6.2 of Volume 2. 


Initialization 

All of the input Fortran variables, plus some additional variables, are initialized in BLOCK DATA. 
Most of the input variables are initialized to their default values directly, but some are imtiakzed to values 
that trigger the setting of default values in subroutine INPUT. On the Cray X-MP and Y-MP at NASA 
Lewis, all uninitialized variables have the value zero. There are no known instances in the Proteus code, 
however, in which a variable is used before it is assigned a value. 


Nondimensionalization 

In general, Fortran variables representing physical quantities, such as RHO, U, etc., are nondimensional. 
Two types of nondimensionalizing factors are used - reference conditions and normalizing conditions. 1 he 
factors used to nondimensionalize the governing equations in Section 2.0 of Volume 1 are called normalizing 
conditions These normalizing conditions are defined by six basic reference conditions, for length, velocity, 
temperature, density, viscosity, and thermal conductivity, which are specified by the user. The normalizing 
conditions used in Proteus are listed in Table 3-1 of Volume 2. 
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Note that for some variables, like pressure, the normalizing condition is dictated by the form of the 
governing equations once the six basic reference conditions are chosen. Unfortunately, some of these may 
not be physically meaningful or convenient for use in setting up input conditions. Therefore, some addi- 
tional reference conditions are defined from the six user-supplied ones. The reference conditions are listed 
in Table 3-2 of Volume 2. 

Throughout most of the Proteus code, physical variables are nondimensionalized by the normalizing 
conditions. For input and output, however, variables are nondimensionalized by the reference conditions 
because they are usually more physically meaningful for the user. The Fortran variables representing the 
reference conditions themselves are, of course, dimensional. 

One-Dimensional Addressing of Three-Dimensional Arrays 

In the solution algorithm used in Proteus , there are several instances in which the same steps must be 
followed in all three ADI sweep directions. An example is the computation, in the COEFC, COEFX, 
COEFY, COEFZ, and COEFE1 routines, of the submatrices in the block tridiagonal coefficient matrix. 
These computations involve various flow variables, such as RHO, U, etc., and metric quantities, such as 
XIX, XIY, etc. These are stored as three-dimensional arrays, with the three subscripts representing, in or- 
der, the indices in the computational £, *}, and £ directions. For the first ADI sweep, values at various £ 
indices are needed at fixed rj and £ indices. For the second ADI sweep, values at various rj indices are 
needed at fixed <£ and £ indices. And for the third ADI sweep, values at various £ indices are needed at fixed 
£ and r\ indices. In order to use the same coding for all three sweeps, a scheme for one-dimensional ad- 
dressing of a three-dimensional array has been used. 3 

In Fortran,' multi-dimensional arrays are actually stored in memory as a one-dimensional sequence of 
values, with the first subscript incremented over its range first, then the second subscript, etc. We take ad- 
vantage of this in Proteus . As a first step, the three-dimensional array is equivalenced to a one-dimensional 
array of the same total length. The one- dimensional array name is derived from the three-dimensional array 
name by adding a "1". Thus, letting F represent a typical three-dimensional array, 

dimension f Cnlp,n2p,n3p) ,f l(ntotp) 
equivalence (f ( 1 , 1 , 1 ) ,f 1 (13 3 

where NIP, N2P, and N3P are dimensioning parameters specifying the dimension size in the rj, and £ 
directions, and NTOTP is a dimensioning parameter equal to NIP x N2P x N3P. Next, we define a "step 
factor", which depends on the ADI sweep, and a "base index" which depends on the indices in tb^ non- 
sweep directions. For the first ADI sweep, 


istep = 1 
do 1000 13 = 
do 1000 i2 = 
iv = 12 
ibase = 1 + 

2 , npt3- 1 
2 , npt2~ 1 

(i2-l)*nlp + Ci3-1 )*nlp*n2p 

1000 continue 



For the second ADI sw 7 eep, 

istep = nip 

do 2000 i3 = 2,npt3-l 


3 An alternative would be to switch the order of the three subscripts in these arrays after each sweep. Since these 
arrays are used in many other areas of the code, this idea was discarded as being unnecessarily confusing. It should 
be noted, however, that there are some arrays in Proieus in which the order of the first two subscripts does switch 
between ADI sweeps. These are the A, B, C, and S arrays, wtiich represent the coefficient submatrices and the 
source term subvector, and the METX, METY, METZ, and METT arrays, which represent the metric coefficients 
in the sweep direction. For these arrays, the first subscript is the index in one of the non-sweep directions fi.e., the 
tf direction for the first sweep and the £ direction for the second and third sweeps), and the second is the index in 
the sweep direction (i.e., £ for the first sweep, r\ for the second sweep, and £ for the third sweep.) 
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do 2000 il = 2,nptl-l 
iv = il 

ibase = il + C i3- 1 )*nlp*n2p 


2000 continue 

And for the third ADI sweep, 

istep = nlp*n2p 
do 3000 i2 = 2 / npt2-l 
do 3000 il = 2,nptl-l 
iv = il 

ibase = il + (i2-l)*nlp 


3000 continue 

In all of the above examples, the inner loop is in one of the non-sweep directions and IV therefore represents 
an index in one of the non-sw^eep directions. Nested inside this loop is a third loop, in the sweep direction. 
In this innermost loop, we can compute the equivalent one-dimensional address for a location in a three- 
dimensional array from the step factor, the base index, and the index in the sweep direction. Thus, for any 
of the ADI sweeps, the innermost loop looks like 

do 100 i = 2 , npts- 1 

iiml = ibase + istep*(i-2) 

ii = ibase + istep*(i-l) 

iipl = ibase + istep*i 


100 continue 

where I represents the index in the sweep direction. With this coding, for the first sweep 

fl(iiml) = f (il- 1 , i2 , i3) 
flCii ) = f ( il ,12,13) 
flCiipl) = f(il+l,i2,i3) 


For the second sweep, 

fl(iiml) = f (il , i2-l , i3) 
f 1 (ii ) = f(il,12 , i3) 

flCiipl ) = f Cil,i2+l,13) 


And for the third sweep, 

fl(iiml) = f (il ,i2,i3-l) 
flCii ) = f(il,12,i3 ) 

fl(iipl) = f (il , i2 , i3+l ) 


Two- Level Storage 


With the Beam-Warming time differencing scheme used in Proteus , the dependent variables RHO, U, 
V, W, and ET must be stored at two time levels. For convenience, T is also stored at two time levels. In 
the ADI solution procedure, RHO, U, etc. are at the known time level n. The corresponding variable^ at 
the other time level is denoted by adding an "L" to the variable name. Exactly which time level the "L" 
variable is at depends on the stage in the solution procedure. Letting F represent one of these variables, the 
time levels for F and FL are listed in the following table for the different stages of the solution procedure. 
Recall that * and * * represent the intermediate time levels after the first and second ADI sweeps. 
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STAGE IN TIME STEP 
FROM LEVEL n TO n+ 1 

TIME LEVEL 
FORF 

TIME LEVEL 
FOR FL 

From start to end of sweep 1 

n 

12 — 1 

From end of sweep 1 to end of sweep 2 

n 

* 

From end of sweep 2 to end of sweep 3 

n 

** 

From end of sweep 3 to update in EXEC 

n 

n + 1 

From update in EXEC to start of next step 

n+ 1 

n 


dummy 4hw 

For convenience, a three-dimensional array called DUMMY is stored in common block DUMMY 1 and 
used as a temporary 7 storage location in several areas of the code. This array is dimensioned N 1 P by N2P 
by N3P, the same as the flow variables, metrics, etc. DUMMY is used internally in subroutines BLIN, 
BLOUT, CONV, and RESID. It is also defined in subroutine YPLUSN for use in subroutines 
SWDOWN, SWUP, and KEINIT. And finally, it is defined in subroutine OUTPUT and passed as an 
argument into subroutine PRTOUT. Details on its use are presented in the subroutine descriptions in 
Section 4.0. 
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3.0 COMMON BLOCKS 


Transfer of data between routines in Proteus is primarily accomplished through the use of labeled 
common blocks. Each common block contains variables dealing with a particular aspect of the analysis, 
and is stored in a separate Cray COMDECK (Cray Research, Inc., 1988). The common block names are 
the same as the COMDECK names. These names also correspond to the names of the input namelists. 
All the variables in namelist BC are stored in common block BC1, etc. The Fortran variables in each 
common block are stored in alphabetical order. 

3.1 COMMON BLOCK SUMMARY 


Block Name 

Description 

BCl 

Boundary condition parameters for the mean flow equations. 

BC2 

Boundary' condition parameters for the k-t equations. 

DUMMY 1 

Scratch array. 

FLOWl 

Variables dealing with fluid properties and the flow being com- 
puted. 

GMTRY1 

Parameters defining the geometric configuration. 

IC1 

Variables needed for setting up initial conditions. 

IOl 

Parameters dealing with program input/output requirements. 

METRIC 1 

Metrics of the nonorthogonal grid transformation, plus the 
Cartesian coordinates of the grid points. 

NUM1 

Parameters associated with the numerical method for the mean 
flow equations. 

NUM2 

Parameters associated with the numerical method for the k-t 
equations. 

RSTRT1 

Parameters dealing with the restart option. 

TIME1 

Parameters dealing with the time step selection and convergence 
determination. 

TITLE 1 

Descriptive title for case being run. 

TURB1 

Turbulence parameters. 

TURB20 

Parameters and constants associated with the k-t equations. 


3.2 COMMON VARIABLES LISTED ALPHABETICALLY 

In this section all the Proteus Fortran variables stored in common blocks are defined, listed alphabet- 
ically by variable name. Those marked with an asterisk are input variables. More details on these variables 
may be found in Section 3.1 of Volume 2. The common block each variable is stored in is given in pa- 
rentheses at the end of each definition. For subscripted variables, the subscripts are defined along with the 
variable, except for the subscripts II, 12, and 13, which are the indices i,j, and k in the £, >j, and £ directions, 
respectively, and run from 1 to N \ , A 2 , and JVj - 
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This list also includes the parameters used as array dimensions. These are not actually stored in a 
common block, but are stored in the Cray COMDECK PARAMS1. More details may be found in Section 
6.2 of Volume 2. 

Unless otherwise noted, all variables representing physical quantities are nondimensional. The 
nondimensionalizing procedure is described in Section 3.1.1 of Volume 2. The type (real or integer) of the 
variables follows standard Fortran convention, unless stated otherwise. (I.e., those starting with I, J, K, 
L, M, or N are integer, and the remainder are real.) 


Fortran 

Variable Symbol 

A(IV,IS,J,K) A 


* APLUS A+ 

B(IV,IS,J,K) B 


C(IV,ISJ,K) C 


* CAVS2E(I) £?> or k 2 


* CAVS2I(I) £/ 

* CAVS4E(I) ef> or k 4 


* CB 


B 


Definition 


Subdiagonal submatrix of coefficients in the block tridiagonal 
coefficient matrix, IS is the grid index in the sweep direction, 
running from 1 to N. IV is the grid index in the "vectorized" 
direction (i.e., the non-sweep direction in which the "BLK" 
routines are vectorized), and runs from 2 to N v — 1 . The 
subscript J = 1 to N eq , corresponding to the N eq coupled gov- 
erning equations, and K = 1 to N eq , corresponding to the N eq 
dependent variables. (NUM 1) 

Van Driest damping constant in the inner and outer regions 
of the Baldwin-Lomax turbulence model. (TURB 1) 

Diagonal submatrix of coefficients in the block tridiagonal 
coefficient matrix. IS is the grid index in the sweep direction, 
running from 1 to N . IV is the grid index in the "vectorized" 
direction (i.e., the non-sweep direction in which the "BLK" 
routines are vectorized), and runs from 2 to N v — 1. The 
subscript J = 1 to N eq , corresponding to the N eq coupled gov- 
erning equations, and K = 1 to N eq , corresponding to the N eq 
dependent variables. (NUM1) 

Sup,erdiagonal submatrix of coefficients in the block 
tridiagonal coefficient matrix. IS is the grid index in th<= sweep 
direction, running from 1 to N . IV is the grid index in the 
"vectorized" direction (i.e., the non-sweep direction in which 
the "BLK" routines are vectorized), and runs from 2 to 
N y — 1. The subscript J = 1 to N eq , corresponding to the N eq 
coupled governing equations, and K = 1 to N eq , corresponding 
to the N eq dependent variables. (NUM1) 

Second order explicit artificial viscosity coefficient in constant 
coefficient model, or user- specified constant in nonlinear co- 
efficient model. The. subscript I = 1 to N eq , corresponding to 
the N eq coupled governing equations. (NUM I) 

Second order implicit artificial viscosity coefficient in constant 
coefficient model. The subscript I = l to N eq , corresponding 
to the N eq coupled governing equations. (NUM I) 

Fourth order explicit artificial viscosity coefficient in constant 
coefficient model, or user-specified constant in nonlinear co- 
efficient model. The subscript I = 1 to N eq , corresponding to 
the N eq coupled governing equations. (NUM1) 

Constant used in the formula for the Klebanoff intermittency 
factor Fiaeb in the outer region of the Baldwin-Lomax turbu- 
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* CCLAU 

* CCP 
CCP1-4 

* CFL(I) 

* CFLMAX 

* CFLMIN 
CHGAVG(I) 

CHGMAX(IJ) 

* CHG1 

* CHG2 

* CKLEB 

* CKMIN 

CK1-2 

* CMUR 
CMU1-2 

4 For the energy equation, 
of magnitude as the other 


lence model, and in the inner region of the Spalding- 
Kleinstein turbulence model. (TURB1) 

K Clauser constant used in the outer region of the Baldwin- 

Lomax turbulence model. (TURB1) 

C ep Constant used in the outer region of the Baldwin- Lomax tur- 

bulence model. (TURB1) 

C c i - C c 4 Constants in empirical formula for specific heat as a function 

of temperature. (FLOW1) 

The ratio At/At^ where At is the actual time step used in the 
implicit calculation and Ar c /? is the allowable time step based 
on the Courant- Friedrichs- Lewy (CFL) criterion for explicit 
methods. I is the time step sequence number, and runs from 
1 to XTSEQ. (TIME1) 

Maximum allowed value of the CFL number. (TIME1) 
Minimum allowed value of the CFL number. (TIME1) 

AQav* Maximum change in absolute value of the dependent vari- 

ables, averaged over the last NITAVG time steps . 4 The sub- 
script 1=1 to N eq , corresponding to the N eq dependent 
variables. (TIME1) 

AQ mcx Maximum change in absolute value of in the dependent vari- 

ables over a single time step . 4 The subscript I = 1 to N eq , cor- 
responding to the N tq dependent variables, and J = 1 to 
NITAVG, the number of time steps used in the moving av- 
erage option for determining convergence. (TIME1) 

Minimum change, in absolute value, that is allowed in any 
dependent variable before increasing the time step . 4 (TIME1) 

Maximum change, in absolute value, that is allowed in any 
dependent variable before decreasing the time step 4 (TIME1) 

C K i eb Constant used in the formula for the Klebanoff intermittency 

factor in the outer region of the Baldwin-Lomax turbu- 
lence model. (TURB1) 

(Cicub) mm Constant used in the formula for the Klebanoff intermittency 

factor F Kleb in the outer region of the Baldwin-Lomax turbu- 
lence model. (TURB1) 

C k i - C w Constants in empirical formula for thermal conductivity coef- 

ficient as a function of temperature. (FLOW1) 

Cp r Constant used to compute Cp in the turbulent viscosity for- 

mula for the k-t equations. (TURB20) 

Cp i - C,a Constants in empirical formula for laminar viscosity coeffi- 

cient as a function of temperature. (FLOW1) 


the change in Ej is divided by Ej t = p r RT r j( y r — 1) + u?/ 2, so that it is the same order 
conservation variables. 
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CNL 

n 

Exponent in the Launder-Priddin modified mixing length 
formula for the inner region of the Baldwin- Lomax turbulence 
model. (TURB1) 

CONE 

c, 

Constant used in the production term of the z equation. 
(TURB20) 

CP(1 1,12,13) 


Specific heat at constant pressure at time level n. (FLOW1) 

CTHREE 

c 3 

Constant used to compute C u in the turbulent viscosity for- 
mula for the k-z equations. (TURB20) 

CTWOR 

C 2 , 

Constant used to compute C 2 in the dissipation term of the z 
equation . (TU R B 20) 

CV(1 1,12,13) 

c„ 

Specific heat at constant volume at time level n . (FLOW1) 

CVK 

K 

Von Karman mixing length constant used in the inner region 
of the Baldwin- Lomax and Spalding- Kleinstein turbulence 
models. (TURB1) 

CWK 

C w k 

Constant used in the formula for F wake in the outer region of 
the Baldwin- Lomax turbulence model. (TURB1) 

DEL 

M, Art, or AC 

Computational grid spacing in the ADI sweep direction. 
(NUM1) 

DETA 

At] 

Computational grid spacing in the y\ direction. (NUM1) 

DPDET(I) 

dpjdEr 

The derivative of p with respect to £r> stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

DPDRHO(I) 

dpldp 

The derivative of p with respect to p , stored as a one- 
dimensional array in the sweep direction. The sub::ript I 
therefore runs from 1 to N . (FLOW1) 

DPDRU(I) 

dpld{pu) 

The derivative of p with respect to pu , stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

DPDRV(I) 

dpld(pv) 

The derivative of p with respect to pv , stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

DPDRW(I) 

dpld(pw) 

The derivative of p with respect to pw, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

DT(I) 

At 

The time step size, when specified directly as input. I is the 
time step sequence number, and runs from 1 to NTSEQ. 
(TIME1) 

DTAU(I1,I2,I3) 

At 

Computational time step size. (TIME1) 

DTDET(I) 

dTjdE T 

The derivative of 7 with respect to E Tl stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to V. (FLOW1) 
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DTDRHO(I) 


dTIdp 


The derivative of T with respect to p, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW 1) 


DTDRU(I) 

dTld(pu) 

The derivative of T with respect to pu, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

DTDRV(I) 

dTjd(pv) 

The derivative of T with respect to pv, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N . (FLOW1) 

DTDRW(I) 

dTjd(pw) 

The derivative of T with respect to pw, stored as a one- 
dimensional array in the sw’eep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

* DTF1 


Factor by which the time step is multiplied if the solution 
changes too slowly. (TIME1) 

* DTF2 


Factor by which the time step is divided if the solution 
changes too quickly. (TIME1) 

* DTMAX 


Maximum value that At is allowed to reach, or the maximum 
At used in the time step cycling procedure. (TIME1) 

* DTMIN 


Minimum value that At is allowed to reach, or the minimum 
At used in the time step cycling procedure. (TIME1) 

DUMMY(1 1,12,13) 

Dummy array used for temporary storage in several subrou- 
tines. (DUMMY 1) 

DW(1 1,12,13,1) 

AW" or AW’ 

Unknown vector in the LU solution of the k-z equations. 
The subscript 1=1 or 2, corresponding to the k and e 
equations, respectively. (NUM2) 

DXI 


Computational grid spacing in the £ direction. (NUM1) 

DZETA 

AS 

Computational grid spacing in the £ direction. (NUM1) 

E(1 1 ,12,13) 

Z 

Turbulent dissipation rate at time level n. (TURB20) 

EL(I1,I2,I3) 

Z 

Turbulent dissipation rate at previous or intermediate time 
level. (TURB20) 

♦ EPS(I) 

z 

Convergence level to be reached. The subscript I = 1 to N eq , 
corresponding to the N eq dependent variables. (TIME1) 

EP1-2 


Parameters used in various parts of the code as minimum and 
maximum allowed values. (PA RAMS 1) 

ER 

e r 

Dimensional reference energy, p r i&- (FLOW1) 

ET(I1,I2,I3) 

E t 

Total energy at time level n. (FLOW1) 

ETAT(1 1,12,13) 

Vr 

The derivative of the computational coordinate rj with respect 
to untransformed time t . (METRIC 1) 
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ETAX(1 1,12,13) rj x The derivative of the computational coordinate tj with respect 

to the Cartesian coordinate x. (METRIC 1) 

ETA Y(1 1,12, 13) fj y The derivative of the computational coordinate rj with respect 

to the Cartesian coordinate y. (METRIC1) 


ETAZ(I1,I2,I3) 

ETL(1 1,12,13) E t 

* FBCT1(I2,I3,I,J) 


* FBCT2(I1,I3,I,J) 


* FBCT3(I1,I2,I,J) 


* FBCl(I2,li,I,J) 


* FBC2(I1,I3,I,J) 


* FBC3(I1,I2,I,J) 


* FPMIN 


The derivative of the computational coordinate rj with respect 
to the Cartesian coordinate z . (METRIC 1) 

Total energy at previous or intermediate time level. (FLOW 1) 

Point-by-point values used for boundary conditions for the 
k-i turbulence model on the £ = 0 and £ = 1 boundaries. 
These are either set in the input, if a point-by-point distrib- 
ution is being specified by the user, or by the program itself. 
The subscript 1=1 or 2, corresponding to the k and s 
equations, respectively, and J = 1 or 2, corresponding to the 
£ = 0 and £ = 1 boundaries, respectively. (BC2) 

Point-by-point values used for boundary conditions for the 
k~t turbulence model on the t\ = 0 and y\ = 1 boundaries. 
These are either set in the input, if a point-by-point distrib- 
ution is being specified by the user, or by the program itself. 
The subscript I = 1 or 2, corresponding to the k and t 
equations, respectively, and J = 1 or 2, corresponding to the 
>7 = 0 and y] = 1 boundaries, respectively. (BC2) 

Point-by-point values used for boundary conditions for the 
k-t turbulence model on the £ = 0 and £ = 1 boundaries. 
These are either set in the input, if a point-by-point distrib- 
ution is being specified by the user, or by the program itself. 
The subscript 1=1 or 2, corresponding to the k and & 
equations, respectively, and J = 1 or 2, corresponding to the 
£ = 0 and £ = 1 boundaries, respectively. (BC2) 

Point-by-point values used for steady boundary conditions on 
the £ = 0 and £ = 1 surfaces. These are either set in the input, 
if a point -by-point distribution is being specified by the user, 
or by the program itself. I runs from 1 to N eq , corresponding 
to the N eq conditions needed, and J = 1 or 2, corresponding 
to the £ = 0 and £ = 1 boundaries, respectively. (BC1) 

Point-by-point values used for steady boundary conditions on 
the >7 = 0 and >7 = 1 surfaces. These are either set in the input, 
if a point-by-point distribution is being specified by the user, 
or by the program itself. I runs from 1 to N eg , corresponding 
to the N\q conditions needed, and J = 1 or 2, corresponding 
to the r\ = 0 and >7 = 1 boundaries, respectively. (BC1) 

Point-by-point values used for steady boundary conditions on 
the £ = 0 and £ = 1 surfaces. These are either set in the input, 
if a point-by-point distribution is being specified by the user, 
or by the program itself. I runs from 1 to N eq , corresponding 
to the N eq conditions needed, and J = 1 or 2, corresponding 
to the £ = 0 and £ = 1 boundaries, respectively. (BC1) 

Value used to cut off the search for F max in the outer region 
part of the Baldwin- Lomax turbulence model. (TURB1) 
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* GAMR y r 

* GBCTl(IJ) 


* GBCT2(I,J) 


* GBCT3(I,J) 


* GBCl(I f J) 


* GBC2(I,J) 


* GBC3; : ,J) 


GC g c 

* GTBC1(K,I,J) 


* GTBC2(K,I,J) 


Reference ratio of specific heats, c Pr jc vr (FL0W1) 

Values used for boundary conditions for the k-z turbulence 
model on the £ = 0 and £ = 1 boundaries, when specified for 
the entire surface. The subscript I = 1 or 2, corresponding to 
the k and t equations, respectively, and J = 1 or 2, corre- 
sponding to the £ = 0 and £ = 1 boundaries, respectively. 
(BC2) 

Values used for boundary conditions for the k-z turbulence 
model on the rj = 0 and tj = 1 boundaries, when specified for 
the entire surface. The subscript I = 1 or 2, corresponding to 
the k and z equations, respectively, and J = 1 or 2, corre- 
sponding to the rf = 0 and rj = 1 boundaries, respectively. 
(BC2) 

Values used for boundary conditions for the k-z turbulence 
model on the £ = 0 and £ = 1 boundaries, when specified for 
the entire surface. The subscript I = 1 or 2, corresponding to 
the k and t equations, respectively, and J = 1 or 2, corre- 
sponding to the £ — 0 and £ = 1 boundaries, respectively. 
(BC2) 

Values used for steady boundary conditions on the £ = 0 and 
£ = 1 boundaries, when specified for the entire surface. I runs 
from 1 to N eq , corresponding to the N eq conditions needed, and 
J = 1 or 2, corresponding to the £ = 0 and £ = 1 boundaries, 
respectively. (BC1) 

Values used for steady boundary conditions on the rf = 0 and 
rf = 1 boundaries, when specified for the entire surface. I runs 
from 1 to N eq , corresponding to the N eq conditions needed, and 
J = 1 or 2, corresponding to the rf = 0 and rj = 1 boundaries, 
re spect i vely . ( B C 1 ) 

Values used for steady boundary conditions on the _ = 0 and 
£ = 1 boundaries, when specified for the entire surface. I runs 
from 1 to N €qy corresponding to the N eq conditions needed, and 
J = 1 or 2, corresponding to the £ = 0 and £ = 1 boundaries, 
respectively . ( B C 1 ) 

Dimensional proportionality factor in Newton's second law, 
either 32.174 lb m -ft/lb r sec 2 , or 1.0 kg-m/N-sec 2 . (FLOW1) 

A variable used to specify the values for unsteady and time- 
periodic boundary conditions on the £ = 0 and £ = 1 bound- 
aries. I runs from 1 to corresponding to the N eq 
conditions needed, and J = 1 or 2, corresponding to the 
£ = 0 and £ = 1 boundaries, respectively. For general un- 
steady boundary conditions, K = 1 to NTBC, corresponding 
to the time steps in the array NTBCA, and GTBC1 specifies 
the boundary condition value directly. For time -periodic 
boundary conditions, K = 1 to 4, and GTBC1 specifies the 
four coefficients in the equation used to determine the 
boundary condition value. (BC1) 

A variable used to specify the values for unsteady and time- 
periodic boundary conditions on the y\ = 0 and y\ = 1 bound- 
aries. I runs from 1 to N eq , corresponding to the N eq 
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conditions needed, and J = 1 or 2, corresponding to the 
>7 = 0 and rj = 1 boundaries, respectively. For general un- 
steady boundary conditions, K = 1 to NTBC, corresponding 
to the time steps in the array NTBCA, and GTBC2 specifies 
the boundary condition value directly. For time -periodic 
boundary' conditions, K = 1 to 4, and GTBC2 specifies the 
four coefficients in the equation used to determine the 
boundary' condition value. (BC1) 

* GTBC3(K,I,J) A variable used to specify the values for unsteady and time- 

periodic boundary conditions on the £ = 0 and £ = 1 bound- 
aries. I runs from 1 to N ev corresponding to the N eq 
conditions needed, and J = 1 or 2, corresponding to the £ = 0 
and £ = 1 boundaries, respectively. For general unsteady 
boundary conditions, K = 1 to NTBC, corresponding to the 
time steps in the array NTBCA, and GTBC3 specifies the 
boundary condition value directly. For time-periodic bound- 
ary conditions, K = 1 to 4, and GTBC3 specifies the four co- 
efficients in the equation used to determine the boundary 
condition value. (BC1) 

HSTAG h T Stagnation enthalpy used with constant stagnation enthalpy 

option. (FLOW1) 

* FISTAGR h Tr Dimensional stagnation enthalpy used with constant stag- 

nation enthalpy option. (FLOW1) 

* IAV2E Flag for second-order explicit artificial viscosity; 0 for none, 1 

for constant coefficient model, 2 for nonlinear coefficient 
model. (NUM1) 

* IAV2I Flag for second-order implicit artificial viscosity; 0 for none, 

1 for constant coefficient model. (NUM1) 

* IAV4E Flag for fourth-order explicit artificial viscosity; 0 for none, 1 

for constant coefficient model, 2 for nonlinear coefficient 
model. (NUM1) 

IBASE Base index used with ISTEP to compute one-dimensional 

index for three-dimensional array. Then, for example, for any 
sweep U(1 1,12,13) = U1(IBASE + ISTEP*(I — 1)) where I is 
the grid index in the sweep direction. (NUM1) 

IBCELM(I,J) Flags for elimination of off-diagonal sub-matrices resulting 

from gradient or extrapolation boundary conditions: 0 if 
elimination is not necessary, 1 if it is. The subscript 1=1,2, 
or 3 corresponding to the sweep direction, and J = 1 or 2 
corresponding to the lower or upper boundary' in that direc- 
tion. (BC1) 

* IBCT 1(12,13,14) Flags specifying, point -by-point, the type of boundary condi- 

tions used for the k-z turbulence model on the £ = 0 and 
£ = 1 surfaces. These are either set in the input, if a point- 
by-point distribution is specified by the user, or by the pro- 
gram itself. The subscript I = 1 or 2, corresponding to the k 
and e equations, respectively, and J = 1 or 2, corresponding 
to the £ = 0 and £ = 1 boundaries, respectively. (BC2) 
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* IBCT2(IU3,U) 

* IBCT3(I1,I2,I,J) 

* IBC1(I2,I3,I,J) 

* IBC2(I1 5 I3,I,J) 

* IBC3(1 1 ,12,I,J) 

IBVUP(U) 

* ICHECK 
ICONV 

* ICTEST 

* ICVARS 


Flags specifying, point -by- point, the type of boundary condi- 
tions used for the k-s turbulence model on the rj = 0 and 
rj = 1 surfaces. These are either set in the input, if a point- 
by-point distribution is specified by the user, or by the pro- 
gram itself. The subscript I = 1 or 2, corresponding to the k 
and i equations, respectively, and J = 1 or 2, corresponding 
to the v\ = 0 and rj = 1 boundaries, respectively. (BC2) 

Flags specifying, point-by-point, the type of boundary condi- 
tions used for the k-z turbulence model on the £ = 0 and 
£ = 1 surfaces. These are either set in the input, if a point- 
by-point distribution is specified by the user, or by the pro- 
gram itself. The subscript I = 1 or 2, corresponding to the k 
and £ equations, respectively, and J = 1 or 2, corresponding 
to the £ « 0 and £ = 1 boundaries, respectively. (BC2) 

Flags specifying, point -by-point, the type of steady boundary 
conditions used on the £ = 0 and £ = 1 surfaces. These are 
either set in the input, if a point-by-point distribution is 
specified by the user, or by the program itself. I runs from 1 
to N eqy corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the £ — 0 and £ = 1 boundaries, re- 
spectively. (BC1) 

Flags specifying, point-by-point, the type of steady boundary 
conditions used on the r\ = 0 and rj = 1 surfaces. These are 
either set in the input, if a point-by-point distribution is 
specified by the user, or by the program itself. I runs from 1 
to N tqy corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the rj = 0 and rj = 1 boundaries, re- 
spectively. (BC1) 

Flags specifying, point-by-point, the type of steady boundary 
conditions used on the £ = 0 and £ = 1 surfaces. These are 
either set in the input, if a point-by-point dis'u.bution is 
specified by the user, or by the program itself. I runs from 1 
to N eqy corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the £ = 0 and £ = 1 boundaries, re- 
spectively. (BC1) 

Flags for updating boundary values from the first two sweeps 
after the last sweep: 0 if updating is not necessary, 1 if it is. 
Updating is required when gradient or extrapolation boundary 
conditions are used. The subscript I = 1 or 2 corresponding 
to the sweep direction, and J = 1 or 2 corresponding to the 
lower or upper boundary in that direction. (BC1) 

Results are checked for convergence every ICHECK'th time 
level. (TIME1) . 

Convergence flag; 0 if not converged, 1 if converged. 
(TIME1) 

Flag for convergence criteria to be used. (TIME1) 

Parameter specifying which variables are being supplied as 
initial conditions by subroutine INIT. (FLOW1) 
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* IDEBUG(I) 

* IDTAU 

* IDTMOD 

* IEULER 


IGAM 


IGINT(I) 

* IHSTAG 

* ILAMY 

* ILDAMP 

INEG 

* INNER 

* IPACK(I) 

* IPLOT 

* IPLT 

* IPLTA(I) 

* IPRT 

* IPRTA(I) 


A 20-element array of flags specifying various debug options. 

( 101 ) 

Flag for time step selection method. (TIME1) 

The time step size is modified every IDTMOD'th time step. 
(TIME1) 

Flag for Euler calculation option; 0 for a full time-averaged 
Navier-Stokes calculation, 1 for an Euler calculation. 
(FL0W1) 

Flag set by method used to select GAMR; 0 if GAMR is de- 
faulted (and hence c p and c v are functions of temperature), 1 
if GAMR is specified by user (and hence c p and c v are con- 
stants). (FLOW1) 

Flags for grid interpolation requirement; 0 if interpolation is 
not needed, 1 if interpolation is needed. The subscript I = 1 
to 3 , corresponding to the £, rj, and £ directions, respectively. 
(GMTRY1) 

Flag for constant stagnation enthalpy option; 0 to solve the 
energy equation, 1 to eliminate the energy equation by as- 
suming constant stagnation enthalpy. (FL0W1) 

Flag for computation of laminar viscosity and thermal 
conductivity; 0 for constant values, 1 for functions of local 
temperature . ( F LOW 1 ) 

Flag for the Launder- Priddin modified mixing length formula 
in the inner region of the Baldwin-Lomax turbulence model. 
(TURB1) 

Flag indicating non-positive values of pressure and/or tem- 
perature: 0 for no non-positive values, 1 for some. (FL AVI) 

Flag for type of inner region turbulence model. (TURB1) 

Flags for grid packing option; 0 for no packing, 1 to pack 
points as specified by the input array SQ. The subscript 
1=1 to 3 , corresponding to the £, 77 , and £ directions, re- 
spectively. (NUM 1) 

Flag controlling the creation of an auxiliary file, usually called 
a "plot file", used for later post-processing. (IOl) 

Results are written into the plot file every IPLT time steps. 

( 101 ) 

Time levels at which results are written into the plot file. The 
subscript I = 1 to 101 , the maximum number of time levels 
that may be written. ( 10 1 ) 

Results are printed every IPRT time levels. (IOl) 

Time levels at which results are printed. The subscript I = 1 
to 101 , the maximum number of time levels that may be 
printed. (IOl) 


28 3.2 Common Variables Listed Alphabetically 


Proteus 3-D Programmer's Reference 



* IPRT1 

* IPRT2 

* IPRT3 

* IPRTIA(I) 

* IPRT2A(I) 

* IPRT3A(I) 

* IREST 
ISTEP 
ISWEEP 
IT 

ITBEG 

ITDBC 

ITEND 

* ITHIN(I) 

ITSEQ 

* ITURB 

* IUNITS 


Results are printed at every IPRTTth mesh point in the £ 
direction. (101) 

Results are printed at every IPRT2'th mesh point in the »j 
direction. (101) 

Results are printed at every IPRT3'th mesh point in the £ di- 
rection. (101) 

£ indices at which results are printed. The subscript 1=1 to 
a maximum of N 1 , the number of grid points in the £ direc- 
tion. (lOl) 

r\ indices at which results are printed. The subscript 1=1 to 
a maximum of N2, the number of grid points in the y\ direc- 
tion. (IOl) 

£ indices at which results are printed. The subscript I = 1 to 
a maximum of N3, the number of grid points in the £ direc- 
tion. (101) 

Flag controlling the reading and writing of auxiliary files used 
for restarting the calculation in a separate run. (RSTRT1) 

Multiplication factor used with I BASE to compute one- 
dimensional index for three-dimensional array. (NUM1) 

Flag specifying ADI sweep direction; 1 for £ direction, 2 for 
rj direction, and 3 for £ direction. (NUM1) 

Current time step number, or known time level. Time step 
number n updates the solution from time level n to n + 1. 
(TIME1) 

The time time step number, or known time level n, at the 
beginning of a run. For a non-restart case, IT IEG = 1. 
(TIME1) 

Flag for time -dependent boundary conditions; 0 if all bound- 
ary conditions are steady, 1 if any general unsteady boundary 
conditions are used, 2 if only steady and time-periodic 
boundary conditions are used. (BC1) 

The final time step number. (TIME1) 

Flag for thin layer option; 0 to include second derivative 
viscous terms, 1 to eliminate them. The subscript 1=1 to 3, 
corresponding to the £, rj, and £ directions, respectively. 
(FL0W1) 

Current time step sequence number. (TIME1) 

Flag for turbulent flow option; 0 for laminar flow, 1 for tur- 
bulent flow using the Baldwin- Lomax algebraic turbulence 
model, 20 for turbulent flow using the Chien two-equation 
k-t turbulence model. (TURB1) 

Flag for type of units used to specify reference conditions; 
0 for English units, 1 for SI units. (101) 
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IV 


* IVOUT(I) 

* IWALLl(I) 

* IWALL2(I) 

* IWALL3(I) 

* IWOUTl(I) 

* IWOUT2(I) 

* IW0iUT3(I) 


11 

12 
13 

* JBCTl(U) 


j 

k 


* JBCT2(I,J) 


Grid point index in the "vectorized"' direction (i.e., the non- 
sweep direction in which the "BLK" routines are vectorized). 
Therefore, IV = j For the first sweep and / for the second and 
third sweeps. (NUM1) 

A 50-element array specifying which variables are to be 
printed. (IOl) 

Flags indicating type of surfaces in the £ direction; 0 for a free 
boundary, 1 for a solid wall. The subscript I — 1 or 2, corre- 
sponding to the £ = 0 and £ = 1 surfaces, respectively. 

(TURB1) 

Flags indicating type of surfaces in the rj direction; 0 for a free 
boundary, 1 for a solid wall. The subscript I = 1 or 2, corre- 
sponding to the rj = 0 and = 1 surfaces, respectively. 

(TURB1) 

Flags indicating type of surfaces in the £ direction; 0 for a free 
boundary, 1 for a solid wall. The subscript I = 1 or 2, corre- 
sponding to the £ = 0 and £ = 1 surfaces, respectively. 

(TURB1) 

Flags specifying whether or not various parameters are to be 
printed along the £ boundaries; 0 for no printout, 1 for print- 
out along the boundary. The subscript I = 1 or 2, corre- 
sponding to the £ = 0 and £ = 1 boundaries, respectively. 
(IOl) 

Flags specifying whether or not various parameters are to be 
printed along the v\ boundaries; 0 for no printout, 1 for print- 
out along the boundary. The subscript I = 1 or 2, corre- 
sponding to the r\ = 0 and rj = 1 boundaries, respectively. 
(IOl) 

Flags specifying whether or not various parameters are to be 
printed along the £ boundaries; 0 for no printout, 1 for print- 
out along the boundary. The subscript I = 1 or 2, corre- 
sponding to the £ = 0 and £ = 1 boundaries, respectively. 

(IOl) 

Grid point index in the £ direction. (NUM1) 

Grid point index in the tj direction. (NUM1) 

Grid point index in the £ direction. (NUM1) 

Flags specifying the type of boundary conditions used for the 
k-z turbulence model on the £ = 0 and £ = 1 surfaces, when 
specified for the entire surface. The subscript I = 1 or 2, cor- 
responding to the k and z equations, respectively, and J = 1 
or 2, corresponding to the £ = 0 and £ = 1 boundaries, re- 
spectively. (BC2) 

Flags specifying the type of boundary conditions used for the 
k-z turbulence model on the rj = 0 and r\ = 1 surfaces, when 
specified for the entire surface. The subscript I = 1 or 2, cor- 
responding to the k and z equations, respectively, and J = 1 
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or 2 , corresponding to the rj = 0 and rj = 1 boundaries, re- 
spectively. (BC2) 

* JBCT3(I,J) Flags specifying the type of boundary conditions used for the 

k-z turbulence model on the £ = 0 and £ = 1 surfaces, when 
specified for the entire surface. The subscript I = 1 or 2, cor- 
responding to the k and z equations, respectively, and J = 1 
or 2 , corresponding to the £ = 0 and £ = 1 boundaries, re- 
spectively. (BC2) 

* JBC1(I,J) Flags specifying the type of steady boundary conditions used 

on the £ = 0 and £ = 1 surfaces, when specified for the entire 
surface. I runs from 1 to N eqi corresponding to the N tq con- 
ditions needed, and J = 1 or 2, corresponding to the £ = 0 and 
£ = 1 boundaries, respectively. (BC 1) 

* JBC2(I,J) Flags specifying the type of steady boundary conditions used 

on the >7 = 0 and n = 1 surfaces, when specified for the entire 
surface. I runs from 1 to N^, corresponding to the N tq con- 
ditions needed, and J = 1 or 2, corresponding to the r\ = 0 and 
= 1 boundaries, respectively. (BC1) 

* JBC3(I,J) Flags specifying the type of steady boundary conditions used 

on the £ = 0 and £ = 1 surfaces, when specified for the entire 
surface. I runs from 1 to corresponding to the N tq con- 
ditions needed, and J = 1 or 2, corresponding to the £ = 0 and 
£ = 1 boundaries, respectively. (BC1) 

JI(1 1,12,13) J~ 1 Inverse Jacobian of the non-orthogonal grid transformation. 

This is a real variable. (METRIC 1) 

* JTBC1(I,J) A variable specifying the type of time dependency for the 

boundary conditions on the £ = 0 and £ = 1 boundaries. I 
runs from 1 to N. q , corresponding to the N tq onditions 
needed, and J = 1 or 2, corresponding to the £ = 0 and £ = 1 
boundaries, respectively. (BC1) 

* JTBC2(I,J) A variable specifying the type of time dependency for the 

boundary conditions on the »j = 0 and >7 = 1 boundaries. I 
runs from 1 to N tq , corresponding to the N eq conditions 
needed, and J = 1 or 2, corresponding to the rj = 0 and tj = 1 
boundaries, respectively. (BC1) 

* JTBC3(I,J) A variable specifying the type of time dependency for the 

boundary conditions on the £ = 0 and £ = 1 boundaries. I 
runs from 1 to N corresponding to the N eq conditions 
needed, and J = 1 or 2, corresponding to the £ = 0 and £ = 1 
boundaries, respectively. (BC1) 

KBCPER(I) Flags for spatially periodic boundary conditions: 0 for non- 

periodic, 1 for periodic. The subscript I = 1 , 2, or 3, corre- 
sponding to the £, rj, and £ directions, respectively. (BC1) 

+ KBC1(J) Flags for type of boundaries in the £ direction. The subscript 

J = 1 or 2, corresponding to the £ = 0 and £ = 1 boundanes, 
respectively. (BC1) 
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KBC2(J) 


Flags for type of boundaries in the y] direction. The subscript 
J = 1 or 2, corresponding to the rj = 0 and y\ — 1 boundaries, 
respectively. (BC1) 

KBC3(J) 


Flags for type of boundaries in the £ direction. The subscript 
J = 1 or 2, corresponding to the £ = 0 and £ = 1 boundaries, 
respectively. (BC1) 

KE(1 1,12,13) 

k 

Turbulent kinetic energy at time level n . This is a real vari- 
able. (TURB20) 

KEL(1 1,12,13) 

k 

Turbulent kinetic energy at previous or intermediate time 
level. This is a real variable. (TURB20) 

KT(I1,I2,I3) 

k 

Effective thermal conductivity coefficient at time level n. This 
is a real variable. (FLOW1) 

KTR 

K 

Dimensional reference thermal conductivity coefficient. This 
is a real variable. (FLOW1) 

LA(1 1,12,13) 

X 

Effective second coefficient of viscosity at time lev el n (usually 
assumed equal to — 2^/3.) This is a real variable. (FLOW1) 

LR 

Lr 

E>imensional reference length. This is a real variable. 

(FLOW1) 

LRMAX(I,J,K) 


The grid indices corresponding to the location of the maxi- 
mum absolute value of the residual. The subscript I = 1 to 
3, corresponding to the £, rj, and £ directions, respectively, 
J = 1 to N eqt corresponding to the N tq coupled governing 
equations, and K — 1 or 2, corresponding to the residual 
computed without and with the artificial viscosity terms. 
(TIME1) 

LWALL1(I2,I3,I) 


Flags indicating, point-by-point, the type of surfaces in the £ 
direction; 0 for a free boundary, 1 for a solid wall. Ti. sub- 
script 1=1 or 2, corresponding to the £ = 0 and £ = 1 
boundaries, respectively. (TURB1) 

LWALL2(1 1,13,1) 


Flags indicating, point -by-point, the type of surfaces in the rj 
direction; 0 for a free boundary, 1 for a solid wall. The sub- 
script 1=1 or 2, corresponding to the rj = 0 and y — 1 
boundaries, respectively. (TURB 1) 

LWALL3(1 1 ,12,1) 


Flags indicating, point-by-point, the type of surfaces in the £ 
direction; 0 for a free boundary, 1 for a solid wall. The sub- 
script 1=1 or 2, corresponding to the £ = 0 and £ = 1 
boundaries, respectively. (TURB 1) 

LWSET(I) 


Flags specifying how wall locations are determined for the 
turbulence model; 0 if wall locations are found automatically 
by searching for boundary' points where the velocity is zero, 
1 if input using the LWALL parameters, 2 if input using the 
IWALL parameters. The subscript I = 1 to 6, corresponding 
to the £ = 0, £ = 1, r\ = 0, rj = 1, £ = 0, and £ = 1 boundaries, 
respectively. (TURB1) 

MACHR 

M r 

Reference Mach number, u r l{y r RT r ) xn . This is a real variable. 
(FLOW1) 
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METT(IV.IS) 

£ f , y ] n or Cf 

The derivative of the computational coordinate in the ADI 
sweep direction with respect to untransformed time t. IS is 
the grid index in the sweep direction, running from 1 to N. 
IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to A' v — 1. This is a real variable. 
(METRIC 1) 

METX(IV,IS) 

y}xy or C.x 

The derivative of the computational coordinate in the ADI 
sweep direction with respect to the Cartesian coordinate x. 
IS is the grid index in the sweep direction, running from 1 to 
N. IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to N,— 1. This is a real variable. 
(METRIC 1) 

METY(IV,IS) 

£y> yjy> or < 

The derivative of the computational coordinate in the ADI 
sweep direction with respect to the Cartesian coordinate y. 
IS is the grid index in the sweep direction, running from 1 to 
N. IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to N, — 1. This is a real variable. 
(METRIC1) 

METZ(IV,IS) 

yjzi or 

The derivative of the computational coordinate in the ADI 
sweep direction with respect to the Cartesian coordinate z. 
IS is the grid index in the sweep direction, running from 1 to 
N. IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to N, — 1. This is a real variable. 
(METRIC1) 

MU(1 1,12,13) 


Effective viscosity coefficient at time level n. This is a real 
variable. (FLOW1) 

* MUR 

Vr 

Dimensional reference viscosity coefficient. This is a real 
variable. (FLOW1) 

MUT(1 1,12,13) 

Mr 

Turbulent viscosity coefficient at time level n. This is a real 
variable. (FLOW1) 

MUTL(I1,I2,I3) 


Turbulent viscosity coefficient at previous or intermediate 
time level. This is a real variable. (TURB20) 

NAMAX 


A dimensioning parameter equal to the maximum number of 
time steps allowed in the moving average convergence test (the 
ICTEST = 2 option). (PARAMS1) 

NBC 


A dimensioning parameter equal to the number of boundary 
conditions per equation. (PARAMS 1) 

NC 


Array index associated with the continuity equation. 
(NUM1) 

NDIAGP 


Number of diagonals containing interior points in a £->/ plane. 
(PARAMS 1) 

♦ NDTCYC 


Number of time steps per cycle used in the time step cycling 
procedure. (TIME1) 
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NEN 


Array index associated with the energy 7 equation. (NUM1) 

NEQ 

AW 

The number of coupled governing equations actually being 
solved. (NUM1) 

NEQP 


A dimensioning parameter equal to the number of coupled 
equations allowed. (PARAMS1) 

NEQ PM 


A dimensioning parameter equal to the maximum number of 
coupled equations available. (PARAMS1) 

NET 


Array index associated with the dependent variable Et- 
(NUM1) 

NGEOM 


Flag used to specify type of computational coordinates; 1 for 
Cartesian (xj>,z) coordinates, 2 for cylindrical {rfi,x) coordi- 
nates, and 10 to read the coordinates from unit NGRID. 
(GMTRY1) 

NGRID 


Unit number for reading grid file. (10 1) 

NHIST 


Unit number for writing convergence history file. (IO 1) 

NHMAX 


Maximum number of time levels allowed in the printout of 
the convergence history file (not counting the first two, which 
are always printed.) (101) 

NIN 


Unit number for reading namelist input. (IO 1) 

NITAVG 


Number of time steps used in the moving average convergence 
test. (TIME1) 

NMAXP 


A dimensioning parameter equal to the maximum of NIP, 
N2P, and N3P. (PARAMS1) 

NOUT 


Unit number for writing standard output. (IO 1) 

NPLOT 


Unit number for writing CONTOUR or PLOT3D Q plot file. 
(101) 

NPLOTX 


Unit number for writing PL0T3D XYZ plot file. (IOl) 

NPNTP 


Number of interior points in a £-y\ plane. (PARAMS 1) 

NPRT1 


Total number of indices for printout in the £ direction. (IOl) 

NPRT2 


Total number of indices for printout in the q direction. (IO 1) 

NPRT3 


Total number of indices for printout in the £ direction. (IOl) 

NPTS 

N 

The number of grid points in the sweep direction. (NUM1) 

NPT1 

Ni or Ni + 1 

The number of grid points in the £ direction used in com- 
puting coefficients: N\ for non-periodic boundary conditions; 
Ni + 1 for spatially periodic boundary 7 conditions. (NUM1) 

NPT2 

Na or N 2 + 1 

The number of grid points in the rj direction used in com- 


puting coefficients: N 2 for non-periodic boundary conditions; 
N 2 + 1 for spatially periodic boundary conditions. (NUM1) 
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NPT3 

N 3 or N 3 + 1 

The number of grid points in the £ direction used in comput- 
ing coefficients: N 3 for non-periodic boundary conditions; 
jVj + 1 for spatially periodic boundary conditions. (NTJM1) 

NR 


Array index associated with the dependent variable p. 
(NUM1) 

NRQIN 


Unit number for reading restart flow field. (RSTRT1) 

NRQOUT 


Unit number for writing restart flow field. (RSTRT1) 

NRU 


Array index associated with the dependent variable pu. 
(NUM1) 

NRV 


Array index associated with the dependent variable pv. 
(NUM1) 

NRW 


Array index associated with the dependent variable pw. 
(NUM-1) 

NRXIN 


Unit number for reading restart computational mesh. 
(RSTRT1) 

NRXOUT 


Unit number for writing restart computational mesh. 
(RSTRT1) 

NTBC 


Number of values in the tables of GTBC1, GTBC2, and/or 
GTBC3 vs. NTBCA for general unsteady boundary condi- 
tions. (BC1) 

NTBCA(I) 


Time step values at which GTBC1, GTBC2, and/or GTBC3 
are specified for general unsteady boundary conditions. The 
subscript I = 1 to NTBC, corresponding to the NTBC values 
in the table. (BC1) 

NTIME(I) 


Maximum number of time steps to march. I runs from 1 to 
NTSEQP, corresponding to the time step sequence number. 
(TIME1) 

N'TKE 


Number of k-t iterations per mean flow iteration. (TURB20) 

NTOTP 


A dimensioning parameter equal to the total storage required 
for a single three-dimensional array (i.e. , NIP x N2P x N3P). 
(PARAMS1) 

NTP 


A dimensioning parameter equal to the maximum number of 
entries in the table of time-dependent boundary condition 
values. (PARAMS1) 

NTSEQ 


The total number of time step sequences being used. 
(TIME1) 

NTSEQP 


A dimensioning parameter equal to the maximum number of 
time step sequences in the time step sequencing option. 
(PARAMS1) 

NV 

N, 

The number of grid points in the "vectorized" direction (i.e., 
the non-sweep direction in which the "BUK" routines are 
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vectorized). Therefore, XV = N 2 for the first sweep and A\ for 
the second and third sweeps. (NUM1) 


NXM 


Array index associated with the x-momentum equation. 
(XUM1) 

NYM 


Array index associated with the ^-momentum equation. 
(NUM1) 

NZM 


Array index associated with the z-momentum equation. 
(NUMi) 

N1 


The number of grid points in the £ direction. (NUMI) 

NIP 


A dimensioning parameter equal to the maximum number of 
grid points in the £ direction. (PARAMS1) 

N2 

n 2 

The number of grid points in the r\ direction. (NUMI) 

N2P 


A dimensioning parameter equal to the maximum number of 
grid points in the rj direction. (PARAMS1) 

N3 

v 3 

The number of grid points in the £ direction. (NUMI) 

N3P 


A dimensioning parameter equal to the maximum number of 
grid points in the £ direction. (PARAMS1) 

P(1 1,12,13) 

p 

Static pressure at time level n. (FLOW1) 

PR 

Pr 

Dimensional reference static pressure, p r RT r /g c . (FLOW1) 

PRLR 

Pn, 

Reference laminar Prandtl number, c Pr fi r !K , where 
. Cp r = y,Rfty r — 1)- (FLOW1) 

PRR 

Pr r 

Reference Prandtl number, jj. r u}jk r T r . (FLOW1) 

PRT 

Pn 

Turbulent Prandtl number, or, if non-positive, a flag indicat- 
ing the use of a variable turbulent Prandtl number. (TURB 1) 

PO 

Po 

Initial static pressure. (IC1) 

RER 

Re r 

Reference Reynolds number, p r UrL r hi r . (FLOW1) 

RESAVG(J,K) 

Ravg 

The average absolute value of the residual for the previous 
time step. The subscript J = 1 to N eq , corresponding to the 
N eq coupled governing equations, and K = 1 or 2, corre- 
sponding to the residual computed without and with the arti- 
ficial viscosity terms. (TIME1) 

RESL2(J,K) 

R L2 

The L 2 norm of the residual for the previous time step. The 
subscript J = 1 to N eq , corresponding to the N eq coupled gov- 
erning equations, and K = 1 or 2, corresponding to the resi- 
dual computed without and with the artificial viscosity terms. 
(TIME1) 

RESMAX(J,K) 

R-moi 

The maximum absolute value of the residual for the previous 
time step. The subscript J = 1 to corresponding to the 

coupled governing equations, and K = 1 or 2, corre- 
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sponding to the residual computed without and with the arti- 
ficial viscosity terms. (TIME1) 

* 

RG 

R 

Dimensional gas constant. (FLOW1) 


RGAS 

R 

Non-dimensional gas constant. (FL0W1) 


RHO(1 1,12,13) 

P 

Static density at time level n. (FLOW1) 


RHOL(1 1,12,13) 

P 

Static density at previous or intermediate time level. 
(FLOW1) 

* 

RHOR 

Pr 

Dimensional reference density. (FLOW1) 

* 

RMAX 

r max 

Maximum r coordinate for cylindrical grid option. 
(GMTRY1) 

* 

RMIN 

f min 

Minimum r coordinate for cylindrical grid option. 
(GMTRY1) 


S(IV,IS,J) 

s 

Subvector of source terms in the block tridiagonal system of 
equations. IS is the grid index in the sweep direction, running 
from 1 to N. IV is the grid index in the "vectorized" direction 
(i.e., the non-sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to A„ — 1 . The subscript J = 1 
to N, v corresponding to the N eq coupled governing equations. 
(NUM1) 

* 

SIGE 


Constant used in the diffusion term of the s equation. 
(TURB20) 

* 

S1GK 

o k 

Constant used in the diffusion term of the k equation. 
(TURB20) 

* 

sQ(i,r 


An array controlling the packing of grid points using the 
Roberts transformation. The subscript 1=1 to 3, corre- 
sponding to the £, t], and C directions, respectively. SQ(I,1) 
specifies the location of packing, and SQ(I,2) specifies the 
amount of packing. (NUM1) 


T(1 1,12,13) 

T 

Static temperature at time level n. (FLOW1) 


TAU(1 1,12,13) 

T 

Current value of the time marching parameter. (TIME1) 

* 

TFACT 


Factor used in computing the k-t time step, 
At*., = TFACT (At). (TURB20) 

* 

THC(I) 

01, 02 

A tw'o-element array specifying the time difference centering 
parameters used for the continuity equation. (NUM 1) 

* 

THE(I) 

6\> #2* #3 

A three-element array specifying the time difference centering 
parameters used for the energy equation. (NUM1) 

* 

THKE(I) 

9 U 9 2 

A tw'o -element array specifying the time difference centering 
parameters used for the k-t equations. (NUM2) 

* 

THMAX 

9 max 

Maximum 9 coordinate in degrees for cylindrical grid option. 
(GMTRY1) 
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THMIN 

8 min 


Minimum 9 coordinate in degrees for cylindrical grid option. 
(GMTRY1) 

THX(I) 

8 \y @2 > 

t h 

A three -element array specifying the time difference^ centering 
parameters used for the x-momentum equation. (NUM1) 

THY(I) 

Si, 82 , 


A three-element array specifying the time difference centering 
parameters used for the y-momentum equation. (N'UMl) 

THZ(I) ' 

Su 82 , 


A three-element array specifying the time difference centering 
parameters used for the z-momentum equation. (NUM1) 

TITLE 



Title for printed output and CONTOUR plot file, up to 72 
characters long. This is a character variable. (TITLE 1) 

TL(1 1,12,13) 

T 


Static temperature at previous or intermediate time level. 
(FLOW1) 

TLIM 



When the amount of CPU time remaining for the job drops 
below TLIM seconds, the calculation is stopped. (TIME1) 

TR 

T r 


Dimensional reference temperature. (FLOW1) 

TO 

To 


Initial static temperature. (IC1) 

U(1 1,12,13) 

u 


Velocity in the Cartesian x direction at time level n. 
(FLOW1) 

UL(1 1 ,12,13) 

u 


Velocity in the Cartesian x direction at previous or interme- 
diate time level. (FLOW1) 

UR 

U r 


Dimensional reference velocity. (FLOW1) 

uo 

Uo 


Initial velocity in the Cartesian x direction. (IC1) 

V(1 1,12,13) 

V 


Velocity in the Cartesian y direction at time le.el n. 
(FLOW1) 

VL(1 1,12,13) 

y 


Velocity in the Cartesian y direction at previous or interme- 
diate time level. (FLOW1) 

V0RT(I1,I2,I3) 

l«l 


Total vorticity magnitude. (TURB1) 

V0RT(I1,I2,I3) 

Pk 


Production rate of turbulent kinetic energy. (TURB 1) 

VO 

Vo 


Initial velocity in the Cartesian y direction. (IC1) 

W(1 1,12,13) 

w 


Velocity in the Cartesian z direction at time level n. (FLOW1) 

WL(I1,I2,I3) 

w 


Velocity in the Cartesian z direction at previous or intermedi- 
ate time level. (FLOW1) 

WO 

Wo 


Initial velocity in the Cartesian z direction. (IC1) 

X(1 1,12,13) 

X 


Cartesian x coordinate. (METRIC 1) 

XIT(1 1,12,13) 

t, 


The derivative of the computational coordinate £ with respect 
to untransformed time t. (METRIC 1) 
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XIX(1 1,12,13) 


The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate x. (METRIC 1) 

XIY(I1,I2,I3) 

t. 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate y. (METRIC 1) 

XIZ(1 1,12,13) 


The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate z. (METRIC 1) 

XMAX 

Xmax 

Maximum x coordinate for Cartesian or cylindrical grid op- 
tion. (GMTRY1) 

XMIN 

X/nin 

Minimum x coordinate for Cartesian or cylindrical grid op- 
tion. (GMTRY1) 

Y(I1,I2,I3) 

y 

Cartesian y coordinate. (METRIC!) 

YMAX 

y mcx 

Maximum y coordinate for Cartesian grid option. 
(GMTRY1) 

YMIN 

y min 

Minimum y coordinate for Cartesian grid option. 
(GMTRY1) 

YPLUSD(1 1,12,13) 

r 

Non-dimensional distance from the nearest solid wall. 
(TURB20) 

Z(1 1,12,13) 

2 

Cartesian z coordinate. (METRIC 1) 

ZETAT(I1,I2,I3) 

C, 

The derivative of the computational coordinate £ with respect 
to untransformed time t. (METRIC 1) 

ZETAX(I1,I2,I3) 

c. 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate x. (METRIC 1) 

ZETAY(I1,I2,I3) 

Cy 

The derivative of the computational coordinate £ w_h respect 
to the Cartesian coordinate y. (METRIC 1) 

ZETAZ(1 1,12,13) 

Cz 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate z. (METRIC 1) 

ZMAX 

Zmax 

Maximum z coordinate for Cartesian grid option. 
(GMTRY1) 

ZMIN 

Zmin 

Minimum z coordinate for Cartesian grid option. 
(GMTRY1) 


3.3 COMMON VARIABLES LISTED SYMBOLICALLY 

In this section many of the Proteus Fortran variables stored in common blocks are defined, listed sym- 
bolically. Note that this list does not include those variables without symbolic representations, such as 
various flags, or those whose meaning depends on other parameters, such as the boundary condition values 
and sweep direction metrics. The variables marked with an asterisk are input variables. More details on 
these may be found in Section 3.1 of Volume 2. The common block each variable is stored in is given in 
parentheses at the end of each definition. For subscripted variables, the subscripts are defined along with 
the variable, except for the subscripts II, 12, and 13, which are the indices />/, and k in the rj, and £ di- 
rections, respectively, and run from 1 to N u N 2y and AY 
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Unless otherwise noted, all variables representing physical quantities are nondimensional. The 
nondimensionalizing procedure is described in Section 3. 1.1 of Volume 2. The type (real or integer) of the 
variables follows standard Fortran convention, unless stated otherwise. (I.e., those starting with I, J, K, 
L, M, or N are integer, and the remainder are real.) 

Fortran 

Symbol Variable Definition 

* A+ APLUS Van Driest damping constant in the inner and outer regions 

of the Baldwin-Lomax turbulence model. (TURB 1 ) 

A AMAT(IV,IS,J,K) Subdiagonal submatrix of coefficients in the block tridiagonal 

coefficient matrix. IS is the grid index in the sweep direction, 
running from 1 to N. IV is the grid index in the "vectorized" 
direction (i.e., the non-sweep direction in which the "BLK" 
routines are vectorized), and runs from 2 to N v — 1. The 
subscript J = 1 to N^, corresponding to the N eq coupled gov- 
erning equations, and K = 1 to N eq , corresponding to the N eq 
dependent variables. (NUM1) 

* B CB Constant used in the formula for the Klebanoff intermittency 

factor F K ub in the outer region of the Baldwin-Lomax turbu- 
lence model, and in the inner region of the Spalding- 
Kleinstein turbulence model. (TURB1) 

B BMAT(IV,IS,J,K) Diagonal submatrix of coefficients in the block tridiagonal 

coefficient matrix. IS is the grid index in the sweep direction, 
running from 1 to N. IV is the grid index in the "vectorized" 
direction (i.e., the non-sweep direction in which the "BLK" 
routines are vectorized), and runs from 2 to A r v — 1. The 
subscript J = 1 to N eq , corresponding to the N eq coupled gov- 
erning equations, and K = 1 to N eqi corresponding to the N eq 
dependent variables. (NUM1) 

c p CP(1 1,12,13) Specific heat at constant pressure at time level n . (FLG VI) 

c„ CV(1 1,12,13) Specific heat at constant volume at time level n. (FLOW 1 ) 

* C cp CCP Constant used in the outer region of the Baldwin-Lomax tur- 

bulence model. (TURBl) 

C Cp \ - C Cp 4 CCP1-CCP4 Constants in empirical formula for specific heat as a function 

of temperature. (FLOW1) 

Ck\ - Ck2 CK1-2 Constants in empirical formula for thermal conductivity coef- 

ficient as a function of temperature. 

* Cxui, CKLEB Constant used in the formula for the Klebanoff intermittency 

factor F K ieb in the outer region of the Baldwin-Lomax turbu- 
lence model. (TURBl) 

* {C Kiet) mm CKMIN Constant used in the formula for the Klebanoff intermittency 

factor FKieb in the outer region of the Baldwin-Lomax turbu- 
lence model. (TURBl) 

* C Pr CMUR Constant used to compute C \ in the turbulent viscosity for- 

mula for the k-z equations. (TURB20) 
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C„1 - C H 2 


CMU1-2 


Constants in empirical formula for laminar viscosity coeffi- 
cient as a function of temperature. (FL0W1) 


* c wk 

CWK 

Constant used in the fonnula for F wake in the outer region of 
the Baldwin-Lomax turbulence model. (TURB 1) 

♦ C, 

CONE 

Constant used in the production term of the c equation. 
(TURB 20) 

* Cu 

CTWOR 

Constant used to compute C 2 in the dissipation term of the z 
equation. (TURB20) 

* a 

CTHREE 

Constant used to compute C„ in the turbulent viscosity for* 
mula for the k-z equations. (TURB20) 

c 

CMAT(IV,IS,J,K) 

Superdiagonal submatrix of coefficients in the block 
tridiagonal coefficient matrix. IS is the grid index in the sweep 
direction, running from 1 to AT. IV is the grid index in the 
'Vectorized" direction (i.e., the non- sweep direction in which 
the "BLK" routines are vectorized), and runs from 2 to 
N v — 1. The subscript J = 1 to A^, corresponding to the N eq 
coupled governing equations, and K = 1 to N eg , corresponding 
to the N eq dependent variables. (NUM1) 

e. 

ER 

Dimensional reference energy, (FLOW1) 

E t 

ET(1 1,12,13) 

Total energy at time level n. (FLOW1) 

E t 

ETL(I1,12,I3) 

Total energy at previous or intermediate time level. (FLOW 1) 

gc 

GC 

Dimensional proportionality factor in Newton's second law, 
either 32.174 lbm-ft/lbrsec 2 , or 1.0 kg-m/N-sec 2 . (FLOW1) 

hr 

HSTAG 

Constant stagnation enthalpy used with constant stagnation 
enthalpy option. (FLOW1) 

* hr. 

HSTAGR 

Dimensional stagnation enthalpy used with constant stag- 
nation enthalpy option. (FLOW1) 

i 

11 

Grid point index in the £ direction. (NUM 1) 

i. 

IV 

Grid point index in the "vectorized" direction (i.e., the non- 
sw'eep direction in which the "BLK" routines are vectorized). 
Therefore, TV =j for the first sweep and i for the second and 
third sweeps. (NUM1) 

j 

12 

Grid point index in the r\ direction. (NUM1) 

y- 1 

JI(1 1 ,12,13) 

Inverse Jacobian of the non-orthogonal grid transformation. 
This is a real variable. (METRIC 1) 

k 

13 

Grid point index in the £ direction. (NUM1) 

k 

KT(1 1,12,13) 

Effective thermal conductivity coefficient at tune level n. This 
is a real variable. (FLOW1) 

k 

KE(1 1,12,13) 

Turbulent kinetic energy at time level n. This is a real vari- 
able. (TURB20) 
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k 

KEL(I1,I2,I3) 

Turbulent kinetic energy at previous or intermediate time 
level. This is a real variable. (TURB20) 

K 

KTR 

Dimensional reference thermal conductivity coefficient. This 
is a real variable. (FLOW1) 

K 

CCLAU 

Clauser constant used in the outer region of the Baldwin- 
Lomax turbulence model. (TURB1) 

Lr 

LR 

Dimensional reference length. This is a real variable. 

(FLOW1) 

M r 

MACHR 

Reference Mach number, Url{y f RT r ) X11 . This is a real variable. 
(FLOW1) 

n 

IT 

Current time step number, or known time level. Time step 
number n updates the solution from time level n to n + 1 . 
(TIME1) 

n 

CNL 

Exponent in the Launder- Priddin modified mixing length 
-formula for the inner region of the Baldwin-Lomax turbulence 
model. (TURB1) 

N 

NPTS 

The number of grid points in the sweep direction. (NUM1) 

N t , 

NEQ 

The number of coupled governing equations actually being 
solved. (NUM1) 

N, 

NV 

The number of grid points in the Vectorized" direction (i.e., 
the non -sweep direction in which the "BLK" routines are 
vectorized). Therefore, NV = N 2 for the first sweep and N\ for 
the second and third sweeps. (NUM 1) 

Nx 

N1 

The number of grid points in the £ direction. (NUM1) 

Nx 

NPT1 

The number of grid points in the £ direction used in com- 
puting coefficients (only for non-periodic boundary condi- 
tions.) (NUM1) 

Nx+ 1 

NPT1 

The number of grid points in the £ direction used in com- 
puting coefficients (only for spatially periodic boundary con- 
ditions.) (NUM 1) 

n 2 

N2 

The number of grid points in the y \ direction. (NUM1) 

n 2 

NPT2 

The number of grid points in the direction used in com- 
puting coefficients (only for non-periodic boundary condi- 
tions.) (NUM1) 

N a + 1 

NPT2 

The number of grid points in the rj direction used in com- 
puting coefficients (only for spatially periodic boundary con- 
ditions.) (NUM1) 

v 3 

N3 

The number of grid points in the £ direction. (NUM1) 


NPT3 

The number of grid points in the £ direction used in comput- 
ing coefficients (only for non-periodic boundary conditions.) 
(NUM1) 
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JV,+ 1 

NPT3 

The number of grid points in the £ direction used in comput- 
ing coefficients (only for spatially periodic boundary condi- 
tions.) (NUM1) 

p 

P(1 1,12,13) 

Static pressure at time level n. (FLOW1) 

Pr 

PR 

Dimensional reference static pressure, p,/?T r /g c . (FLOW1) 

* Po 

PO 

Initial static pressure. (IC1) 

dpjdEr 

DPDET(I) 

The derivative of p with respect to £r, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

dpi dp 

DPDRHO(I) 

The derivative of p with respect to p, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

dpi dip u) 

DPDRU(I) 

The derivative of p with respect to pu , stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N . (FLOW1) 

dpld(pv) 

DPDRV(I) 

The derivative of p with respect to pv, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

dpld(pw) 

DPDRW(I) 

The derivative of p with respect to pw, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

Pk 

V0RT(I1,I2,I3) 

Production rate of turbulent kinetic energy. (TURB 1) 

* Pn r 

PRLR 

Reference laminar Prandtl number, c Pr p r lk n where 
c Pr = y r RI(yr— 1). (FLOW1) 

Pr r 

PRR 

Reference Prandtl number, p r u}lk r T r . (FLOW1) 

* Pr, 

PRT 

Turbulent Prandtl number, or, if non-positive, a flag indicat- 
ing the use of a variable turbulent Prandtl number. (TURB1) 


CHGAVG(I) 

Maximum change in absolute value of the dependent vari- 
ables, averaged over the last NITAVG time steps. 5 The sub- 
script I = I to iV e? , corresponding to the N eq dependent 
variables. (TIME1) 

AQ„„ 

CHGMAX(I,J) 

Maximum change in absolute value of the dependent variables 
over a single time step. 5 The subscript I = 1 to N eq , corre- 
sponding to the N eq dependent variables, and J = 1 to 
NITAVG, the number of time steps used in the moving av- 
erage option for determining convergence. (TIME1) 

* r 

1 max 

RMAX 

Maximum r coordinate coordinate for cylindrical grid option. 

(GMTRY1) 


5 For the energy equation, the change in Er is divided by Ej r — p r RTrI(y r — 1) + so that it is the same order 
of magnitude as the other conservation variables. 
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Vmin 

RMIN 

Minimum r coordinate coordinate for cylindrical grid option. 
(GMTRY1) 

O 

RESAVG(J,K) 

The average absolute value of the residual for the previous 
time step. The subscript J = 1 to N eq> corresponding to the 
N tq coupled governing equations, and K = 1 or 2, corre- 
sponding to the residual computed without and with the arti- 
ficial viscosity terms. (TIME1) 


RESL2(J,K) 

The L 2 norm of the residual for the previous time step. The 
subscript J = 1 to Neq, corresponding to the N eq coupled gov- 
erning equations, and K = 1 or 2, corresponding to the resi- 
dual computed without and with the artificial viscosity terms. 
(TIME1) 

RfllM 

RESMAX(J.K) 

The maximum absolute value of the residual for the previous 
time step. The subscript J = 1 to N eq , corresponding to the 
N eq coupled governing equations, and K = 1 or 2, corre- 
sponding to the residual computed without and with the arti- 
ficial viscosity terms. (TIME1) 

R 

RG 

Dimensional gas constant. (FLOW1) 

R 

RGAS 

Non-dimensional gas constant. (FLOW1) 

Re r 

RER 

Reference Reynolds number, p r u r L r lp r . (FLOW1) 

S 

SVECT(IV,IS,J) 

Subvector of source terms in the block tridiagonal system of 
equations. IS is the grid index in the sweep direction, running 
from 1 to N. IV is the grid index in the Vectorized" direction 
(i.e., the non-sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to N v — 1. The subscript J = 1 
to N eq , corresponding to the N eq coupled governing equations. 
(NUM1) 

At 

DT(I) 

The time step size, when specified directly as input. * is the 
time step sequence number, and runs from 1 to NTSEQ. 
(TIME1) 

T 

T(1 1 ,12,13) 

Static temperature at time level n . (FLOW1) 

T 

TL(1 1 ,12,13) 

Static temperature at previous or intermediate time level. 
(FLOW!) 

BTldEr 

DTDET(I) 

The derivative of T with respect to stored as a one- 

dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

dTjdp 

DTDRHO(I) 

The derivative of T with respect to p, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

dTld(pu) 

DTDRU(I) 

The derivative of T with respect to pu, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

dTld(pv) 

DTDRV(I) 

The derivative of T with respect to pv, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N . (FLOW1) 
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dTld(pw) 

DTDRW(I) 

The derivative of T with respect to pw, stored as a one- 
dimensional array in the sweep direction. The subscript I 
therefore runs from 1 to N. (FLOW1) 

T r 

TR 

Dimensional reference temperature. (FLOW1) 

To 

TO 

Initial static temperature. (IC1) 

u 

U(1 1,12,13) 

Velocity in the Cartesian x direction at time level n. 
(FLOW1) 

u 

UL(1 1,12,13) 

Velocity in the Cartesian x direction at previous or interme- 
diate time level. (FLOW1) 

U r 

UR 

Dimensional reference velocity. (FLOW1) 

Uq 

UO 

Initial velocity in the Cartesian x direction. (IC1) 

V 

V(1 1,12,13) 

Velocity in the Cartesian y direction at time level n. 
(FLOW1) 

V 

VL(I1,I2,I3) 

Velocity in the Cartesian y direction at previous or interme- 
diate time level. (FLOW1) 

Vo 

VO 

Initial velocity in the Cartesian y direction. (IC 1) 

w 

W(1 1,12,13) 

Velocity in the Cartesian z direction at time level n. (FLOW1) 

w 

WL(1 1,12,13) 

Velocity in the Cartesian z direction at previous or intermedi- 
ate time level. (FLOW1) 

Wo 

WO 

Initial velocity in the Cartesian z direction. (IC 1) 

AW n or AW' 

DW(I1,I2,I3,I) 

Unknown vector in the LU solution of the k-t equations. 
The subscript 1=1 or 2, corresponding to the k and s 
equations, respectively. (NUM2) 

X 

X(1 1,12,13) 

Cartesian * coordinate. (METRIC 1) 

Xmcx 

XMAX 

Maximum x coordinate for Cartesian or cylindrical grid op- 
tion. (GMTRY1) 

X/nin 

XMIN 

Minimum x coordinate for Cartesian or cylindrical grid op- 
tion. (GMTRY1) 

y 

Y(1 1,12,13) 

Cartesian y coordinate. (METRIC 1) 

ymax 

YMAX 

Maximum y coordinate for Cartesian grid option. 
(GMTRY1) 

y min 

YMIN 

Minimum y coordinate for Cartesian grid option. 
(GMTRY1) 

y* 

YPLUSD(1 1 ,12,13) 

Non-dimensional distance from the nearest solid wall. 
(TURB20) 

z 

Z(1 1 ,12,13) 

Cartesian z coordinate. (METRIC 1 ) 
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* Zmax 

Z MAX 

Maximum z 
(GMTRY1) 

coordinate 

for 

Cartesian 

grid 

option. 

* Zmin 

ZMIN 

Minimum z 
(GMTRY1) 

coordinate 

for 

Cartesian 

grid 

option. 


* c EPS(I) Convergence level to be reached. The subscript I = 1 to N eqi 

corresponding to the N eq dependent variables. (TIME1) 

t E(1 1J2,I3) Turbulent dissipation rate at time level n . (TURB20) 

e EL(1 1,12,13) Turbulent dissipation rate at previous or intermediate time 

level. (TURB20) 

+ c g> CAVS2E(I) Second order explicit artificial viscosity coefficient in constant 

coefficient model. The subscript I = 1 to N tq , corresponding 
to the N eq coupled governing equations. (NUM1) 

* CAVS4E(I) Fourth order explicit artificial viscosity coefficient in constant 

coefficient model. The subscript I = 1 to N eq , corresponding 
to the N eq coupled governing equations. (NUM1) 

* tl CAVS2I(I) Second order implicit artificial viscosity coefficient in constant 

coefficient model. The subscript I = 1 to N eq > corresponding 
to the N eq coupled governing equations. (NUM1) 

£ f ZETAT(I1,I2,I3) The derivative of the computational coordinate £ with respect 

to untransformed time r. (METRIC 1) 

£ r METT(IV,IS) The derivative of the computational coordinate £ with respect 

to the Cartesian coordinate t (third ADI sweep only.) IS is 
the grid index in the sweep direction, running from 1 to N. 
IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to N v — 1. This is a real va. able. 
(METRIC 1) 

£ x ZETAX(1 1,12,13) The derivative of the computational coordinate £ with respect 

to the Cartesian coordinate x. (METRIC 1) 

£ x METX(IV,IS) The derivative of the computational coordinate £ with respect 

to the Cartesian coordinate x (third ADI sweep only.) IS is 
the grid index in the sweep direction, running from 1 to N. 
IV is the grid index in the Vectorized" direction (i.e., the 
non-sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to N v — 1. This is a real variable. 
(METRIC1) 

£j ZETAY(1 1,12,13) The derivative of the computational coordinate £ with respect 

to the Cartesian coordinate;;. (METRIC 1) 

£ > METY(IV,IS) The derivative of the computational coordinate £ with respect 

to the Cartesian coordinate y (third ADI sweep only.) IS is 
the grid index in the sweep direction, running from 1 to V. 
IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to N v — 1. This is a real variable. 
(METRIC 1) 
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c* 




AC 

AC 


*h 


Vt 


Vx 




Vy 


Vy 


1 1 * 


*1 2 


ZETAZ(1 1,12,13) 
\1ETZ(IV,IS) 


DEL 

DZETA 
ETAT(1 1,12,13) 

METT(IV,IS) 


ETAX(1 1,12,13) 
METX(IV,IS) 


ETA Y(1 1,12,13) 
METY(IV,IS) 


ETAZ(1 1,12,13) 
METZ(IV,IS) 


The derivative of the computational coordinate C with respect 
to the Cartesian coordinate z. (METRIC 1) 

The derivative of the computational coordinate C with respect 
to the Cartesian coordinate z (third ADI sweep only.) IS is 
the grid index in the sweep direction, running from 1 to N. 
IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the "BLK routines are 
vectorized), and runs from 2 to N v — 1. This is a real variable. 
(METRIC 1) 

Computational grid spacing in the C direction (third ADI 
sweep only.) (NUM1) 

Computational grid spacing in the C direction. (NUM1) 

The derivative of the computational coordinate rj with respect 
to untransformed time t. (METRIC 1) 

The derivative of the computational coordinate r\ with respect 
to untransformed time t (second ADI sweep only.) IS is the 
grid index in the sweep direction, running from 1 to V. IV is 
the grid index in the "vectorized" direction (i.e., the non- sweep 
direction in which the "BLK" routines are vectorized), and 
runs from 2 to N v - 1. This is a real variable. (METRIC 1) 

The derivative of the computational coordinate r\ with respect 
to the Cartesian coordinate x. (METRIC 1) 

The derivative of the computational coordinate r\ with respect 
to the Cartesian coordinate x (second ADI sweep only.) IS 
is the grid index in the sweep direction, running from 1 to N. 
IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to N v — 1 . This is a re^ 1 , variable. 
(METRIC1) 

The derivative of the computational coordinate rj with respect 
to the Cartesian coordinate y. (METRIC 1) 

The derivative of the computational coordinate r\ with respect 
to the Cartesian coordinate y (second ADI sweep only.) IS 
is the grid index in the sweep direction, running from 1 to N. 
IV is the grid index in the "vectorized" direction (i.e., the 
non- sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to N v — 1. This is a real variable. 
(METRIC 1) 

The derivative of the computational coordinate with respect 
to the Cartesian coordinate z. (METRIC 1) 

The derivative of the computational coordinate rj with respect 
to the Cartesian coordinate z (second ADI sweep only.) IS 
is the grid index in the sweep direction, running from 1 to A. 
IV is the grid index in the "vectorized" direction (i.e., the 
non-sweep direction in which the "BLK" routines are 
vectorized), and runs from 2 to V„ — 1 . This is a real variable. 
(METRIC 1) 
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Arj 

DEL 

Computational grid spacing in the rj direction (second ADI 
sweep only,) (NUM1) 

A n 

DETA 

Computational grid spacing in the r\ direction. (NUM1) 

K 

CVK 

Von Karman mixing length constant used in the inner region 
of the Baldwin- Lomax and Spalding-Kleinstein turbulence 
models. (TURB1) 

*2 

CAVS2E(I) 

User-specified constant in nonlinear coefficient artificial 
viscosity model. The subscript I = 1 to N eq , corresponding to 
the N eq coupled governing equations. (NUM1) 

*4 

CAVS4E(I) 

User-specified constant in nonlinear coefficient artificial 
viscosity model. The subscript 1=1 to N eq , corresponding to 
the N eq coupled governing equations. (NUM1) 

It 

GAMR 

Reference ratio of specific heats, c p Jc Vr . (FLOW1) 

X 

LA(1 1,12,13) 

Effective second coefficient of viscosity at time level n (usually 
assumed equal to — 2/i/3.) This is a real variable. (FLOW1) 

M 

MU(1 1,12,13) 

Effective viscosity coefficient at time level n. This is a real 
variable. (FLOW1) 

Mr 

MUR 

Dimensional reference viscosity coefficient. This is a real 
variable. (FLOW1) 

Mr 

MUT(I1,I2,I3) 

Turbulent viscosity coefficient at time level n. This is a real 
variable. (FLOW1) 

Mr 

MUTL(i 1,12,13) 

Turbulent viscosity coefficient at previous or intermediate 
time level. This is a real variable. (TURB20) 

Sr 

XIT(1 1 ,12,13) 

The derivative of the computational coordinate £ with respect 
to untransformed time t. (METRIC 1) 

Sr 

METT(IV,IS) 

The derivative of the computational coordinate £ with respect 
to untransformed time t (first ADI sweep only.) IS is the grid 
index in the sweep direction, running from 1 to N. IV is the 
grid index in the "vectorized" direction (i.e., the non-sweep 
direction in which the "BLK" routines are vectorized), and 
runs from 2 to N v — 1. This is a real variable. (METRIC 1) 

s* 

XIX(1 1,12,13) 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate x. (METRIC 1) 

s* 

METX(IV.IS) 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate x (first ADI sweep only.) IS is the 
grid index in the sweep direction, running from 1 to N. TV is 
the grid index in the "vectorized" direction (i.e., the non-sweep 
direction in which the "BLK" routines are vectorized), and 
runs from 2 to N v - 1. This is a real variable. (METRIC 1) 

Sy 

XIY(1 1,12,13) 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate y. (METRIC1) 

Sy 

METY(IV,IS) 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate y (first ADI sweep only.) IS is the 
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grid index in the sweep direction, running from 1 to N. IV is 
the grid index in the "vectorized" direction (i.e., the non-sweep 
direction in which the BLK" routines are vectorized), and 
runs from 2 to S\ — 1. This is a real variable. (METRIC 1) 



& 

XIZ(1 1 ,12,13) 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate z. (METRIC 1) 



METZ(IV,IS) 

The derivative of the computational coordinate £ with respect 
to the Cartesian coordinate z (first ADI sweep only.) IS is the 
grid index in the sweep direction, running from 1 to N. IV is 
the grid index in the Vectorized" direction (i.e., the non-sweep 
direction in which the "BLK" routines are vectorized), and 
runs from 2 to N v — 1. This is a real variable. (METRIC 1) 



DEL 

Computational grid spacing in the £ direction (first ADI 
sweep only.) (NUM1) 



DXI 

Computational grid spacing in the f direction. (NUM1) 


P 

RHO(Il,I2,I3) 

Static density at time level n. (FLOW1) 


P 

RHOL(1 1,12,13) 

Static density at previous or intermediate time level. 
(FLOW1) 

* 

Pr 

RHOR 

Dimensional reference density. (FLOW1) 

* 


SIGK 

Constant used in the diffusion term of the k equation. 
(TURB20) 

* 

o t 

SIGE 

Constant used in the diffusion term of the e equation. 
(TURB20) 


T 

TAU(1 1,12,13) 

Current value of the time marching parameter. (TIME1) 


At 

DTAU(I1,I2,I3) 

Computational time step size. (TIME1) 

* 

0 max 

THMAX 

Maximum 0 coordinate in degrees for cylindrical grid option. 
(GMTRY1) 

* 

0 min 

THMIN 

Minimum 0 coordinate in degrees for cylindrical grid option. 
(GMTRY1) 

* 

01, 02 

THC(I) 

A two -element array specifying the time difference centering 
parameters used for the continuity equation. (NUM1) 

* 

01, 02 

THKE(I) 

A two -element array specifying the time difference centering 
parameters used for the k-s equations. (NUM2) 

* 

01, 02, 03 

THE(I) 

A three-element array specifying the time difference centering 
parameters used for the energy equation. (NUM1) 

* 

01, 02, 03 

THX(I) 

A three-element array specifying the time difference centering 
parameters used for the x-momentum equation. (NUM1) 

* 

01, 02, 03 

THY(I) 

A three-element array specifying the time difference centering 
parameters used for the ^-momentum equation. (NUM1) 

Proteus 3-D Programmer's Reference 

3.3 Common Variables Listed Symbolically 49 



* 8 lt e 2 , 0 3 THZ(I) 

|Q| VORT(1 1,12,13) 


A three-element array specifying the time difference centering 
parameters used for the z-momentum equation. (NUM1) 

Total vorticity magnitude. (TURB1) 
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4.0 PROTEUS SUBPROGRAMS 


In this section, each subprogram in Proteus is described, first in summary, then in detail. The summary' 
is simply a list of the subprograms with a brief description of the purpose of each one. The detailed de- 
scription includes, for each subprogram, a list of the subprograms that reference it, and a list of the sub- 
programs that it references. The Fortran variables that are input to and output from each subprogram are 
defined. And finally, details of the computations being done within each subprogram are presented. 

4.1 SUBPROGRAM SUMMARY 

The following table presents a brief description of the purpose of each subprogram in the Proteus code. 


Proteus Subprogram Summary 

Subprogram 

Purpose 

ADI 

Manage the block tridiagonal inversion. 

AVISC1 

Compute constant coefficient artificial viscosity. 

AVISC2 

Compute nonlinear coefficient artificial viscosity. 

BCDENS 

Compute density boundary conditions. 

BCELIM 

Eliminate off-diagonal coefficient submatrices resulting from 
three-point boundary conditions. 

BCF 

Compute user-written boundary conditions. 

BCFLIN 

User- supplied routine for linearization of user- supplied boundary 
conditions. 

BCGtN 

Manage computation of boundary conditions. 

BCGRAD 

Compute gradients with respect to and 

BCIMET 

Compute inverse metrics at a point in the current sweep direction. 

BCMET 

Compute various metric functions for normal gradient boundary 
conditions. 

BCNVEL 

Compute normal direction velocity boundary conditions. 

BCPRES 

Compute pressure boundary conditions. 

BCQ 

Compute conservation variable boundary conditions. 

BCSET 

Set various boundary condition parameters and flags. 

BCTEMP 

Compute temperature boundary conditions. 

BCUVEL 

Compute x-velocity boundary conditions. 

BCVN 

Compute velocity normal to a surface. 

BCWEL 

Compute ^-velocity boundary conditions. 

BCV1 

Compute <!; -velocity. 

BCV2 

Compute ^-velocity. 

BCV3 

Compute £ -velocity. 

BCWVEL 

Compute z-velocity boundary conditions. 

BC1VEL 

Compute £ -velocity boundary conditions. 

BC2VEL 

Compute rj -velocity boundary conditions. 
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Proteus Subprogram Summary 


Subprogram 

Purpose 

BC3VEL 

Compute £- velocity boundary conditions. 

BLIN 

Compute inner layer turbulent viscosity, using the Baldwin- Lomax 
model. 

BLKOUT 

Print coefficient blocks at specified indices in the £, > 7 , and £ di- 
rections. 

BLK4 

Solve 4x4 block tridiagonal system of equations. 

BLK4P 

Solve 4x4 periodic block tridiagonal system of equations. 

BLK5 

Solve 5x5 block tridiagonal system of equations. 

BLK5P 

Solve 5x5 periodic block tridiagonal system of equations. 

BLOCK DATA 

Set default values for input parameters, plus a few other parame- 
ters. 

BLOUT 

Compute outer layer turbulent viscosity, using the Baldwin- Lomax 
model. 

BVUP 

Update first and second sweep boundary values after third sw r eep. 

COEFC 

Compute coefficients and source terms for the continuity equation. 

COEFE1 

Compute coefficients and source terms for the energy equation. 

COEFE2 

Compute source terms for the energy equation. 

COEFX 

Compute coefficients and source terms for the x-momentum 
equation. 

COEFY 

Compute coefficients and source terms for the y-momentum 
equation. 

COEFZ 

Compute coefficients and source terms for the z-momentum 
equation. 

CONV 

Test computed flow field for convergence. 

CUBIC 

Interpolation using Ferguson's parametric cubic. 

EQSTAT 

Use equation of state to compute pressure, temperature, and their 
derivatives with respect to the dependent variables. 

EXEC 

Manage solution of governing equations. 

EXECT 

Manage solution of the k-e equations. 

FILTER 

Rearrange rows of the boundary condition coefficient submatrices 
and the source term subvector to eliminate any zeroes on the di- 
agonal. 

FTEMP 

Compute auxiliary variables that are functions of temperature. 

GATHER 

Create a vector containing specified elements of an input vector. 
This is a Cray Linear Algebra routine. 

GEOM 

Manage computation of grid and metric parameters. 

INIT 

Get user-defined initial flow field. 

INITC 

Set up consistent initial conditions based on data from INIT. 

INPUT 

Read and print input, perform various initializations. 

ISAMAX 

Find the first index corresponding to the largest absolute value of 
the elements of an vector. This is a Cray search routine. 

ISAMIN 

Find the first index corresponding to the smallest absolute value 
of the elements of an vector. This is a Cray search routine. 

ISRCHEQ 

Find the first index in an array wdiose element is equal to a speci- 
fied value. This is a Cray search routine. 
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Proteus Subprogram Summary 

Subprogram Purpose 

ISRCHFGT Find the first index in an array whose element is greater than a 

specified value. This is a Cray search routine. 

ISRCHFLT Find the first index in an array whose element is less than a speci- 

fied value. This is a Cray search routine. 

KEINIT Get user-defined initial conditions for k and s. 

MAIN Manage overall solution. 

METS Compute metrics of nonorthogonal grid transformation. 

OUTPUT Manage printing of output. 

OUTW Compute and print parameters at boundaries. 

PAK Manage packing and/or interpolation of grid points. 

PERIOD Define extra line of data for use in computing coefficients for spa- 

tially periodic boundary conditions. 

PLOT Write files for post-processing by CONTOUR or PLOT3D plot- 

ting programs. 

PRODCT Compute production term for the k-z turbulence model. 

PRTHST Print convergence history. 

PRTOUT Print output. 

RES ID Compute residuals and write convergence history file. 

REST Read and/or write restart file. 

ROBTS Pack points along a line using Roberts transformation. 

SASUM Compute the sum of the absolute values of the elements of a vec- 

tor. This is a Cray BLAS routine. 

SGEFA Factor a matrix using Gaussian elimination. This is a Cray 

LINPACK routine. 

SGE r L Solve the matrix equation Ax = B or A T x = B using the factors 

computed by SGEFA. This is a Cray LINPACK routine. 

SNRM2 Compute the L 2 norm of a vector. This is a Cray BLAS routine. 

SWDOWN Compute coefficients and source terms, and solve the k-z equations 

for the downward LU sweep. 

SWUP Compute coefficients and source terms, and solve the k-z equations 

for the upward LU sweep. 

TBC Set time-dependent boundary condition values. 

TIMSTP Set computational time step. 

TREMAIN Get CPU time remaining for the job. This is a Cray Fortran 

routine. 

TURBBL Manage computation of turbulence parameters using Baldwin- 

Lomax algebraic model. 

TURBCH Manage computation of turbulence parameters using the Chien 

k-z model. 

UPDATE Update flow variables after each ADI sweep. 

UPDTKE Update k and z after each time step. 

VORTEX Compute magnitude of total vorticity. 

WHENFLT Find all indices in an array whose elements are less than a specified 

value. This is a Cray search routine. 
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Proteus Subprogram Summary 

Subprogram 

Purpose 

YPLUSN 

Compute the distance to the nearest solid wall. 


4.2 SUBPROGRAM DETAILS 


The subprograms used in Proteus are described in detail in the remainder of this section. A few addi- 
tional words are necessary about the input and output descriptions. The description of the input to each 
subprogram includes all Fortran variables actually used by the subprogram that are defined outside the 
subprogram. Variables defined and used inside the subprogram are not listed as input. In addition, com- 
mon block variables that are merely passed through to lower level routines are not listed. Variables marked 
with an asterisk are user-specified namelist input variables. 

Similarly, the output description includes only those variables computed inside the subprogram and used 
outside the subprogram. It does not include common block variables computed by low-er level routines. 
In general, variables defined inside the subprogram that are used by lower level routines are listed as output, 
even if they are not needed after control is returned to the calling program. 

Variables entering or leaving a subprogram through an argument list are defined in detail. However, 
most of the Fortran variables listed in the input and output descriptions are contained in common blocks, 
and are defined in detail in Section 3.0. For that reason, they are defined only briefly in this section. 
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Subroutine ADI 

Called by 

Calls 

Purpose 

EXEC 

BLKOUT 

BLK4 

BLK4P 

BLK5 

BLK5P 

Manage the block tridiagonal inversion. 


Input 

* IDEBUG 

* IPRTiA, IPRT2A, IPRT3A 
ISWEEP 

IT 

KBCPER 


* 


NEQ 

NOUT 

NPRT1, NPRT2, NPRT3 


Debug flags. 

Indices for printout in the £, rj, and £ directions. 

Current ADI sweep number. 

Current time step number n. 

Flags for spatially periodic boundary conditions in the £, rj } and £ 
directions; 0 for non-periodic, 1 for periodic. 

Number of coupled equations being solved, N eq . 

Unit number for standard output. 

Total number of indices for printout in the £, and £ directions. 


Output 

None. 

Description 

For each ADI sweep, subroutine ADI calls the appropriate block solver. The choice is determined by 
the number of equations being solved, and by the presence or absence of spatially periodic born lary con- 
ditions in the sweep direction. 

Remarks 

1. This subroutine generates the output for the IDEBUG(l), IDEBUG(5), and IDEBUG(6) options. 
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Subroutine AVISC1 


Called by 

Calls 

Purpose 

EXEC 

BLKOUT 

Compute constant coefficient artificial viscosity. 


Input 

A, B, C 

* CAVS2E, CAVS4E, C A VS 21 
DTAU 

* IAV2E, IAV4E, IAV2I 

* IDEBUG 

* IHSTAG 

* IPRT1A, IPRT2A, IPRT3A 
ISWEEP 

IT 

12, 13 

JI 

NC> NXM, NYM, NZM, NEN 

* NOUT 

NPRT1, NPRT2, NPRT3 
NPT1, NPT2, NPT3 


NR, NRU, NRV, NRW, NET 
RHO, U, V, W, ET 
S 


Coefficient submatrices A, B, and C without artificial viscosity. 
Artificial viscosity coefficients s$\ and $/, 

Time step At. 

Flags for second-order explicit, fourth-order explicit, and second- 
order implicit artificial viscosity. 

Debug flags. 

Flag for constant stagnation enthalpy option. 

Indices for printout in the £, rj, and £ directions. 

CuiTent ADI sweep number. 

Current time step number n. 

Grid indices j and k , in the rj and £ directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J~ l . 

Array indices associated with the continuity, r-momentum, 
^-momentum, z- momentum, and energy equations. 

Unit number for standard output. 

Total number of indices for printout in the £, rj, and £ directions. 

N u V 2 , and Nz for non-periodic boundary conditions, A r i + 1, 
jV 2 4- 1 , and Nz + 1 for spatially periodic boundary conditions in 
£» rj, and £. 

Array indices associated with the dependent variables p, pu, pv, 
pw, and Et . 

Static density p, velocities w, v, and w, and total energ> r E r at time 
level n. 

Source term subvector S without artificial viscosity. 


Output 

A, B, C Coefficient submatrices A, B, and C with artificial viscosity. 

S Source term subvector S with artificial viscosity. 


Description 

Subroutine AVISC 1 adds explicit and/or implicit artificial viscosity to the governing equations, using the 
constant coefficient model of Steger (1978), as presented by Pulliam (1986b). The model is described in 
Section 8.1 of Volume 1. The explicit artificial viscosity may be second and/or fourth order, and is added 
only during the first ADI sweep. The implicit artificial viscosity is second order, and is added during all 
three sweeps. 

The fourth-order explicit artificial viscosity is implemented in Fortran by redefining the source term 
subvector as 
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£ (4 ) At 

S Ut k = s Ui k - — j T - ' — [(Vj Aj) 2 Q u - * + (v„a,) 2 Qu * + (V f A c ) 2 Q, y , *] 

J ij, k 

where l,j, an d A: vary from 3 to NPT1 — 2, NPT2 — 2, and NPT3 — 2, respectively. At grid points adjacent 
to boundaries the fourth-order differences in the above equation cannot be used, and therefore are replaced 
by second-order differences. Thus, at 1 — 2 and at / = NPT1 — 1, withy and k varying from 3 to 
NPT2 - 2 and NPT3 - 2, 

Su. » = S u . „ + ‘ c r — [VjA;Q a k - < v/q, Jt , - <v t A c ) 2 Q u. J 

J ij y k 

Similarly, at j = 2 and at j = NPT2 - 1, with i and A varying from 3 to NPT1 — 1 and NPT3 - 2, 

Sij, k = s u * + — T ^ - [ - (V { A { ) 2 Q u . * + \\Q Ut k - (W<*U n 
* / «,y, k 

And, at A = 2 and at A = NPT3 - 1, with i and j varying from 3 to NPT1 — 1 and NPT2 - 2, 


£ £ >At (,7, k 

^ i,j , k ~ ^ i,J , fc /. 

^,7, * 


[ - (V { A 5 ) 2 Q u> * - k + (V C A c )Q, y , *] 


The second -order explicit artificial viscosity is implemented in Fortran by redefining the source term 
subvector as 

(2)^ 

s u> * = s i>y> * + — (Vj A f Q u * + V,Q U . * + A) 

k 

where z, y, and £ vary from 2 to NPT1 — 1, NPT2 — 1, and NPT3 — 1, respectively. 

The second-order implicit artificial viscosity for the first ADI sweep is implemented in Fortran by re- 
defining the cc rflicient block submatrices as 


®/At i,j,k , 

j. . , J i-l,j,k 


k 

r _ B ■ 2 J „ 

k — J, k + ^ j J ij , * 

s / At ;,7, * , 

Cj / A — M,y, fc — / ■'i + 1,7, * 

i>j,k 

where r,y, and A vary from 2 to NPT1 - 1, NPT2 - 1, and NPT3 - 1, respectively. Similarly, for the sec- 
ond sweep, 

£ / At /,7,a , 

A ;',7, A — A i,/, A / "'/,7 — 1 , k 

J i>J> k 

R _R I 2 g/AT< ~ J> * J . 

J, A “ B i,y, £ + 2 t f ^',7, * 

r- _ i- £/At W» £ r 

'-'ij, k ~ M f y\ k r J ij+\,k 

k 


And, for the third sweep, 
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Remarks 


A ij\ k 

®/,y, k 
Qj, & 


s A T iJ, k 

A i,j, k 7 jt,y, & — 1 

•ay, & 

c / AT /,y,fc 

K U\ Jk + Z i J i,j> k 
J ij > k 

B A T iJ, k 
C U,k y ~ 


/t j, * + 1 


L The sign in front of each artificial viscosity term depends on the sign of the "ij,k" term in the difference 
formula. See Section 8.1 of Volume 1 for details. 

2. The coding to add artificial viscosity to the energy equation is separate from the coding for the re- 
maining equations, and is bypassed if it is not being solved. 

3. The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in one of the non-sweep (i.e., "Vectorized") directions, and the second subscript is the index in the 
sweep direction. For the first sweep (which includes all the explicit artificial viscosity) the order is thus 
(12,11), for the second sweep the order is (11,12), and for the third sweep the order is (11,13). 

4. For spatially periodic boundary conditions in the £ direction, fourth-order differences could be used at 
z = 2 and at i— NPT1 — 1 ( — h\). A similar situation occurs with spatially periodic boundary condi- 
tions in the y\ and £ directions. The logic to do this has not been coded, however, and at these points 
second-order differences are still used, as described above. 

5. This subroutine generates the output for the IDEBUG(2) option. 
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Called by Calls Purpose 

EXEC BLKOUT Compute nonlinear coefficient artificial viscosity. 


* CAVS2E, CAVS4E 
CP, CV 

DTAU 

DXI, DETA, DZETA 
ETAX, ETAY, ETAZ, ETAT 

* IAV2E, IAV4E 

* IDEBUG 

* IHSTAG 

* IPRT1A, IPRT2A, IPRT3A 
ISWEEP 

IT 

12, 13 
JI 

NC, NXM, NYM, NZM, KEN 

* NOUT 

NPRT1, NPRT2, NPRT3 
NPT1, NPT2, NPT3 

P.T 

RGAS 

RHO, U, V, W, ET 
S 

XIX, XIY, XIZ, XIT 

ZETAX, ZETAY, ZETAZ, 
ZETAT 


User-specified coefficients k 2 and k 4 . 

Specific heats c p and c, at time level n. 

Time step At. 

Computational grid spacing A£, A>j, and AC- 
Metric coefficients r\ t , r) y , and rj r . 

Flags for second-order and fourth-order explicit artificial viscosity. 
Debug flags. 

Flag for constant stagnation enthalpy option. 

Indices for printout in the £. tj, and C directions. 

Current ADI sweep number. 

Current time step number n. 

Grid indices j and k, in the rj and C directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J 

Array indices associated with the continuity, x-momentum, 
y-momentum, z-momentum, and energy equations. 

Unit number for standard output. 

Total number of indices for printout in the £, > 7 , and £ directions. 

N u N 2 , and Ni for non-periodic boundary conditio s, Ni + l, 
N 2 + 1 , and Ni + 1 for spatially periodic boundary conditions in 
£, »j, and £. 

Static pressure p and temperature T at time level n. 

Gas constant R. 

Static density p, velocities u, v, and w, and total energy Er at time 
level n. 

Source term subvector S ■without artificial viscosity. 

Metric coefficients | z , <U, and £,. 

Metric coefficients £„ £ 2 , and £,. 



Source term subvector S with artificial viscosity. 


Description 


Subroutine AVISC2 adds explicit artificial viscosity to the governing equations, using the nonlinear co- 
efficient model of Jameson, Schmidt, and Turkel (1981), as presented by Pulliam (1986b). The model is 
described in Section 8.2 of Volume 1. Implicit artificial viscosity is not normally used in combination with 
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the explicit nonlinear coefficient model. The explicit artificial viscosity is added only during the first ADI 
sweep. 

The artificial viscosity in the £ direction is computed first, at the ^-indices y= 2 to NPT2— 1 and 
C-indices k- 2 to NPT3 - 1. The spectral radius term ^ and the pressure gradient scaling factor o iyUk 
are computed and stored in local one-dimensional arrays for / = 1 to NPT1. Special formulas are used to 
compute o near boundaries, as described in Section 8.2 of Volume 1, 

The second-order artificial viscosity is added first, and is implemented in Fortran by redefining the source 
term subvector as 



Or, after evaluating the differences, 


Sf j\ k ~ 


u k + (-7) + (t) (4 2) )u 

_ V 'i+hj.k V 7 l.j, k_ 

-(t) + (t) h’Ji-UJ 


+ 1 ,j,k k) 


( e £ )i — 1 J, k(Qi,j, k Qi — 1 J, k) 


riiere i varies from 2 to NPT1 — L 


The fourth-order explicit artificial viscosity is added next, and is implemented similarly by redefining the 
source term subvector as 


S/,y, k ” k ^ £ 


(- 7 ) + (4~) (4 4 ) )u, k A $ v s A >Qij , . 

_ ' ' / + 1 J, k ^ ^ i,j, k_ 


Or, after evaluating the differences, 


S; J, k = k ~ ( ~t') + ( ~T^) { E f\j,k(Qi + 2,j,k 3 Q i+ \,J,k + IQi.j.k Qi-\,j,k) 

_ ' ' i + \,j, k V 7 i,j, k_ 

+ (~T^) (4 - 1 ,j> k(Qi + \,j,k~ 3 Q(,y, k + - 1 ,j, k~ Qi- 2J, k) 

where / varies from 3 to NPT1 — 2. Special formulas are used at i = 2 and at i — NPT1 — 1, as described 
in Section 8.2 of Volume 1. 

The explicit artificial viscosity in the rj and £ directions is then implemented in a manner analogous to 
that just described for the explicit artificial viscosity in the £ direction. 


Remarks 

1. The sign in front of each artificial viscosity term depends on the sign of the "ij,k term in the difference 
formula. See Section 8. 1 of Volume 1 for details. 

2. The coding to add artificial viscosity to the energy equation is separate from the coding for the re- 
maining equations, and is bypassed if it is not being solved. 

3. The subscripts on the Fortran variable S may be confusing. The first subscript is the index in one of 
the non-sweep (i.e., ''Vectorized") directions, and the second subscript is the index in the sweep direction. 
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For the first sweep (which includes all the explicit artificial viscosity) the order is thus (12,11), for the 
second sweep the order is (11,12), and for the third sweep the order is (11,13). 

4. For spatially periodic boundary conditions, the need for special formulas near boundaries could be 
eliminated. The logic to do this has not been coded, however. 

5. This subroutine generates the output for the IDEBUG(2) option. 
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Subroutine BCDENS (IBC,FBC, IEQ, IMINJMAX, IBOUND) 


Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute density boundary conditions. 


Input 


DEL 

IBASE, ISTEP 


IBC, FBC 


IBOUND 

IEQ 

IMIN, IMAX 
ISWEEP 
IV 
JI 

* NOUT 
NR 
RHO 


Computational grid spacing in sweep direction. 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(I,J), where I runs from 
1 to N eq} corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the "vectorized" direction, 

Inverse Jacobian of the nonorthogonal grid transfonnation, J~ l . 
Unit number for standard output. 

Array index associated with the dependent variable p. 

Static density p at time level n . 



Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary IBOUND (element IEQ 
only). 


Description 


Subroutine BCDENS computes coefficients and source terms for density boundary conditions. The 
linearized equations for the various general types of boundary 7 conditions are developed in Section 6.0 of 
Volume 1. The following sections apply these generalized equations to the particular density boundary 
conditions in Proteus . 6 


6 In the following description, for the first and second ADI sweeps the dependent variable should have the superscript 
* and ”, respectively, representing the intermediate solution, and for the third ADI sweep it should have the 
superscript n y representing the final solution. For simplicity, however, only the superscript n is used. The super- 
scripts on all other variables are correct as written. 
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No Change From Initial Conditions, Ap = 0 

Applying equation (6.3) of Volume 1, and noting that dgjd Q = JdgjdQ, we get simply 

J U,k A Kj,k = ° 

Specified Static Density , p — f 

Applying equation (6.5) of Volume 1, 

r A Art' r n + 1 n 

7 ij , k ^Pijy k — Ay, k PiJ, k 

Specified Two-Point Density Gradient in Coordinate Direction , dpld<f> = f 

Applying equation (6.8) of Volume 1 at the f = 0 boundary, and using two-point one-sided differencing, 

-J\ ,j,k A Kj, k + h ,j, k A P2,j, k = (MV\ n j\k + PlJ, k - Pl,j, k 
At the f = 1 boundary, 

-•Av,- 1 J, fe A p!v, - 1 J,* + k A p\,j, k = + p\ - 1 ,}, k - p\j, k 

Analogous equations can easily be written for the r\ and £ boundaries. 

Specified Three-Point Density Gradient in Coordinate Direction t dpjd<j> — f 

Applying equation (6.8) of Volume 1 at the f = 0 boundary, and using three-point one-sided differenc- 


ing, 


“ 37 ! j y k Ap 1 J y k + 47 Jfe Ap2,y, & - A.y, A ^3,y, k ~ 

WWijk + 3p" j, k - 4p"y, * + p" j, * 


At the £ = 1 boundary, 


JNi-IJ.k A p\-2,j,k ~ 4/y,- l,y, Jk A PiV, - 1J,* + 3Jtf 1 J,k A PN l ,j,k 
2 ^Vn { j , * - P Af, - 2,y, it + 4 P A-, - 1 J, k - 3 Paw, k 

Analogous equations can easily be written for the rj and ( boundaries. 

Specified Two- Point Density GradierU in Normal Direction, W p.n —f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 

J,k Ap\ j t k + 7 2 j t k Af> 2 j\ k - 

+ r n +ty£y+t£Jl,j,k c n 

^UTt Vi,/.* Vi./.* 


777 


+ Pl.y.zfc" i°2,y, Jt 


where 


m ■ 


■Ntx' + ty' + t, 2 


Proteus 3-D Programmer's Reference 


4.0 Proteus Subprograms: BCDENS 63 


and and S c are the centered difference operators presented in Section 5.0 of Volume 1. At the £ = 1 
boundary, 


A£ 


m 


k\J> k 


~ J N X - l,y\ k ~ 1 J, k + J N X J, k bpN x J, k - 
rn + \ (^x^x 4 “ c n (££x 4 " £y£y 4 * %£z) /V { j\ k £ n 

k m \\J, k < V > *W > k m N lt j,k k 

+ f>N x J'k 


Analogous equations can easily be written for the t] and £ boundaries. 

Specified Three-Point Density Gradient in Normal Direction , Vp • n = f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing, 

~ 1 ,y, k &p 1 ,y, k 4“ 4 / 2 J, k AP 2 J, k - hj, k A P*J, k = 

2A£ rn + i (Zx^x 4“ + £ 7 ^ 7)1 ,y\ k n (^x 4~ £y£y + £ 7 ^ 7 ) 1 J,k n 

m \J~k \f l ’ J > k “ m \ J,k V 1 J > k m \ J, k d Z P 1 'J' k _ 

. t n A n , n 

+ 4 P2,y,*4- P3,y, k 


where 

m = \!TT+Tf+ ~Tf 

and S n and <5 C are the centered difference operators presented in Section 5.0 of Volume 1. At the £ — 1 
boundary, 


Jn x - 2 ,y, k^PN x ~ 2,y, k ~ ^N x - 1 J, /c ApATj - 1 j, k + 2J N X J, k A PN u J t k — 

2A£ ^ + 1 (£x*1x 4" Zy^y 4* ^ 7 ^ 7 ) ^,,7, £ „ (^x^x 4" ‘vy^y 4- ^ 7 )^, 7 , & 

^ /at,,;. * * "W lf y,A 

- PATj - 2,7, it + 4 P AT, - 1 , 7 , k ~ 5 PN x J t k 
Analogous equations can easily be written for the >7 and £ boundaries. 

Linear Extrapolation of Static Density 

Applying equation (6.14) of Volume 1 at the £ = 0 boundary, 



k 


r a ^ ^ ^ r \ T ^ j <*> W ?7 

«M ,7, £ A p ] J 9 k - 2^2,7, A A P2j\ k + y 3 ,7, A A P3,y, A = ~ P 1 ,7, * + Z P2J, k ” P3,y, A 
At the £ = 1 boundary, 

Atj - 2,7, * Ap^ _ 2 , 7 , k ~ ^/V, - 1 ,7, * Ap^ _ j * + ^, 7 , A j, * = - P ^ _ 2 , 7 , k + 2 p\ - 1 , 7 , k “ * 

Analogous equations can easily be written for the >7 and £ boundaries. 

Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Section 

2.3. 

2. An error message is generated and execution is stopped if a non-existent density boundary condition is 
specified. 
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Subroutine BCELIM 

Called by 

Calls 

Purpose 

EXEC 

SGEFA 

SGESL 

Eliminate off-diagonal coefficient submatrices resulting from three- 
point boundary conditions. 


Coefficient submatrices A, B, and C before eliminating off- 
diagonal blocks. 

IBCELM Flags for elimination of off-diagonal coefficient submatrices re- 

sulting from three-point boundary conditions in the l and/or rj 
directions; 0 if elimination is not necessary, 1 if it is. 

ISWEEP Current ADI sweep number. 

IV Index in the Vectorized"' direction, i v . 

NEQ Number of coupled equations being solved, N eq . 

]\ T EQP Dimensioning parameter specifying maximum number of coupled 

equations allowed. 

NPTS Number of grid points in the sweep direction, N . 

S Source term subvector S before eliminating off-diagonal blocks. 

Output 

A, B, C Coefficient submatrices A, B, and C after eliminating off- 

diagonal blocks. 

S Source term subvector S after eliminating off-diagonal blocks. 

Description 

Subroutine BCELIM eliminates the off-diagonal coefficient submatrices that result from the application 
of three-point boundary conditions. This is necessary when three-point gradients are specified in the coor- 
dinate or normal direction, and when linear extrapolation is used. The procedure is described in Section 
7.2.1 of Volume 1. 


Coefficient submatrices A, B, and C after eliminating off- 
diagonal blocks. 

Source term subvector S after eliminating off-diagonal blocks. 


Remarks 


Subroutines SGEFA and SGESL are Cray LINPACK routines. In general terms, if the Fortran arrays 
A and B represent A and B, where A is a square N by N matrix and B is a matrix (or vector) with 
NCOL columns, and if the leading dimension of the Fortran array A is LDA, then the Fortran se- 


quence 


call sgefa (a, lda,n ,ipvt , inf o) 
do 10 j = l,ncol 

call sgesl ( a , lda,n , ipvt , b( 1 , j) , 0) 
continue 


computes A - J B, storing the result : 
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Subroutine BCF (IBC, FBC, IEQ, IMIN.IMAX, IBOUND) 

Called by 

Calls 

Purpose 

BCGEN 

BCFLIN 

BCMET 

Compute user-written boundary conditions. 

Input 



DEL 


Computational grid spacing in sweep direction. 


IBASE, ISTEP Base index and multiplication factor used in computing one- 

dimensional index for three-dimensional array. 


IBC> FBC Mean flow boundary condition types and values for current sweep 

direction, specified as IBC(IJ) and FBC(IJ), where I runs from 
1 to N eq , corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

IBOUND Flag specifying boundary; 1 for lower boundary, 2 for upper 

boundary. 


IEQ 

* IHSTAG 
IMIN, IMAX 
ISWEEP 

IV 

JI 

* NOUT 


Boundary condition equation number. 

Flag for constant stagnation enthalpy option. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the "vectorized" direction, z v - 

Inverse Jacobian of the nonorthogonal grid transformation, J~ h 
Unit number for standard output. 


NR, NRU, NF V, NRW, NET Array indices associated with the dependent variables p, f -, pv, 

pw, and Et- 


Output 

A c Coefficient submatrices A, B, and C at boundary IBOUND (row 

IEQ only). 

S Source term subvector S at boundary IBOUND (element IEQ 

only). 


Description 

Subroutine BCF computes coefficients and source terms for user-written boundary conditions of the 
form AF= 0, F=f, dFjd<j> =/ and VF. n =/ The values of F and its derivatives with respect to the de- 
pendent variables must be supplied by the user-written subroutine BCFLIN. The linearized equations for 
these types of boundary conditions are developed in Section 6.0 of Volume 1. The following sections ex- 
pand these generalized equations in detail. 7 


7 In the following description, for the first and second ADI sweeps the dependent variable should have the superscript 
* and **, respectively, representing the intermediate solution, and for the third ADI sweep it should have the 
superscript n , representing the final solution. For simplicity, however, only the superscript n is used. The super- 
scripts on all other variables are correct as written. 
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So Change From Initial Conditions , A F= 0 

Applying equation (6.3) of Volume 1, and noting that dgjdQ = Jdgjd Q, we get simply 

f 4? + #- 4(A) + #r AM + ^ A(pw) + Jf- A£ r l" = 

dp d(pw) 5(pv) 5(pn) \j t k 


^ ij , ^ 


0 


Specified Value , F=f 

Applying equation (6.5) of Volume 1, 

-§£- Ap + A(pu) + ~SS~ A( >v) + ~JSr A (P W ) + 4§~ AE t\ = 

dp r 5(pu) d(pv) d(pw) dt T _\. Jk 


JiJ, ^ f 3p CypU) uypv) vypiv) -iijj 

in Coordinate Direction , dFld<f> — f 
[Volume 1 at the £ = 0 boundary, and using two-point 


i n 

A * -n + 1 r n 

h k 


one-sided 


+ h 


1 at the % 

<3F a/ a ^ , dF 
3(p«) ^ a(pv) 

dF A A T 

J 2,y, 


Specified Two- Point Gradient 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, 

#- A( ; v) + A(pw) + ae t T 
3(pv) 5(pw) ^ d£ r 'J, JA 


, r SF . a dF 

Ap + d(pu) 


(A?)/"/ 

At the £ = 1 boundary, 

_y 


-/I + 1 , zr 71 

1J,& + t \,j,k~ t 2 ,j,k 


dF a A 

T^ AE t 


4( ;„, + am + A^) + 

dp d(pu) ’ d(pv) ^ dipw) SE t 

Aifw) + —2 Aj 
)(pw) a£-7- 


, f dF .A , dF 

AP + -9(p«) 

- n 


dF a, a \, _§F A , A . _d£_ 

>(p«) A(pw) 5(pv) A(p } + a(pw) 


( A ^Vjv t j , ,!k + E N\ - l J, * — E N\J, k 

Analogous equations can easily be written for the rj and C boundaries. 

Specified Three- Point Gradient in Coordinate Direction , dFld<j> =/ 

Applying equation (6.8) of Volume 1 at the f = 0 boundary, and using 
ing, 
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J, k 

+ 4J 2J,k £ 

j 


Ap + “aT~T" A(p A u) + -rpr- A(pv) + A(pw) + A E r 

dp d(pu ) a(pv) a(ptv) dE r 


■I 

J 1J,J 


f A? + #- 1W + AM + W + J- AE : 

dp d{pu) d(pv) d(pw) ot T 


— iH 

A 

e r 

— o 


2J,* 

/T 


a a a fir a ”| 

a p + 17— r A (? u ) + A ^ v ) + JF~r A (a w ) + ~q£~ a£ p 

T -*3J>k 


d(pu) ' a(pv) — ■ a(pw) 

2(A^^ + 3F” y , * - 4F 2 j, * + F 3 j * 

At the t = 1 boundary', 


J. 




^A? + ^A(A) + ^ r A ( ;v) + ^ T A^, + 


dp ' a(pw) 

„ r r dF A A , dF A , A ^ , 

- 4 -V, - U,* [17 A ^ + ^u) A ^ u) + 


+ 3F 


r 

*W>*|_ dp 


Ap + 


d{pu) 

dF 

d(pu) 


A(pu) + 


d(pv) 

dF 

d(pv) 

dF 

3(pv) 


d(pw) 


a fir a 

A (p y ) + a/ ...A A (pw) + 


A (pv) + 


5(pw) 

dF 

d(pw) 


A(pw) + 


„ -»* 

7*^1 

] 

dF AF "1" 

W M " 


dE- 

dF 

dE T 

dF 


Nx-XJ.k 

n 

N x - 1 ,j,k 


2(A ZVfa'k - F a * _ 2J>k + 4 F^ _ 3F^,y, * 


Analogous equations can easily be written for the r\ and £ boundaries. 

Specified Two-Point Gradient in Normal Direction, Vi 7 * n — f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 


-y w.*[ 


A p+ A (pu) + A (pv) + A (pw) + -ff- A E t 

dp d(pu) a(pv) d{ P w) dE r 


+ J 2 

At 


A P + -T^- A(p A w) + r A(pv) + -T^T- A(pw) + A E 
dp d(pu) ’ a(pv) a(pw) dE r 


'I 

J 1 J, £ 

] n 

- 

2,y, * 


TO 


W.* 


4_ | i^x^x “b "b k c ^ /] i^x^x ~b ^ k £ r ^ 

/u.* VU* ^^777 Vw.* 


■t.y.* 




where 

m = yfT+ f / 

and <5,, and <5 C are the centered difference operators presented in Section 5.0 of Volume 1. At the £ ~ 1 
boundary, 
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, r dF A A , dF i# A , , dF a/ a , 

-•'v 1 -w,*L dp a p+ 8{pu) A (p“) + a(p V ) A(pv) 

, / r gf a a _l ^ a/ a ,a . <g£ 

+ y ^.*L 5 p Ap+ 5 (p u ) A p + 5 (H 

A£ f fn + ] (Zx^x + £y*ly + k 


^f A aF A 
+ ^M 4(pw)+ a£7 4£r 


Ap + -5TTT A(pu) + -7777- A(pv) + A(pw) + -M~ A E- 


d(pw) 


dE-r 


■T 

J ^'i-U 

~\ n 

E r l 

-I \ r . ; fr 


A£ 


6 Aj,k~ 


(tex+ZyZy + Z&Kj.k 

m N \,j,k 




m Ar,,y\ fe 
+ *£ - 1 ,y, A: — E N lt j,k 

Analogous equations can easily be written for the rj and £ boundaries. 

Specified Three- Point GradierU in Normal Direction, VF- n = f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing, 


r &L 

J - k l dp 


fiF A dF A dF A dF it 
+ A(pu) + -77777 A(pv) + ^7—7 A(pw) + AE t 


+ 4J- 


Ap + 


■ Ap + 


5(P«) 

aF 

d(p«) 

aF 


a(pv) 


A 5F A 
A(p«) + -^rA(pv) + 


a(pv) 


A A 

A (p«) + -77777 A(pv) + 


r J£. 

J /£ L d p ' 5 (f“) vr " / ' q (p v ) 

>A£ + 1 (tjflx + + ^)ij, * 

ur[_ /w ’* - 


a(pw) 

aF 

a(pw) 

aF 


a p/r a 

A (pw) + -^AE T 


_2M 

m 


m \,j, k 

+ 3^1J, k — 4^2 ,j, k + -^3,;, k 


d(pw) 

d n Kj,k~ 


A a 

A(pw') + -jg- A E t 


J . 

J,* 

I 

-»0 i 


2J, k 

n 


3 J.k 

(«x+^+«i)l./.A 


q l,j,k 


J ■ 

i,k 

* Q F\.J.k 


where 

m = y[i J+Z/ + 77 

and S n and 5 ; are the centered difference operators presented in Section 5.0 of Volume L At.the f = 1 
boundary, 


, \ dL 

~ 4 -Zat, - w. * AP + ~TT77F A W + 


a A dF A A dF A 

AP + 77777 A (P“) + S7—T A (P V ) + 7^777 A 0> w ) + afT AE T 


d(pu) 

dF 

d(pu) 


a(pv) 

dF 

a(pv) 

aF 


A(pv) + 


aF A a , aF A/ A x , aF A , A , . 

— Ap + -7 — - A(pw) + — — 7 A(pv) + — — r 
dp d(pu) d(pv) d(pw) 


7 AW.*[ 

2 A£ I" + ] (Zjflx + £y*ly + ^z'iztN^j, k 


d(pw) 

dF 

d(pw) 

dF 


A dF 
A (pw) + -T&- A E- 


-.n 

— At 


N x -2 J,k 


dE 7 


a at? A 


e t \ 

•]" - 

- 1 ,V. f 


m h\,j,k 


c (^x + + ^z)N lt j, k „ 

d ti t NiJ.k at,J. * 




Analogous equations can easily be written for the r] and £ boundaries. 
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LAnear_ Extrapolation 


T r dF * A . dF 

>.^L 9 p Ap+ s (p u ) 

U.*[' 


-Mf 


At the £ = 


dF . a , dF a/ a a , dF 4/ a a . aF 
— — A p + — — — A (pu) + — — 7 - A (pv) 4- ~r, — r- 
dp S{pu) d(pv) d(pw) 

«[f 

x,j, k +^ij.k-Kj, k 


A or 

A {pw) 

ul^t 

A -- - <" 


J N l 

-2/.V, 


E>« 

— ^1,7,* 
1 boundary', 


dF A , A , , aF * A 1" 

- — — A (pw) + 3C . A £y = 

) (p w) a£ r J 3 . fe 


w w*[_' 


Analogous equations 

Remarks 


dF . A . aF 4 , A , . dF 4/ a a . aF 

dp d(pu) a(pv) v a(pw) 

aF a a , aF A / A AJ ._aF a a , _jf 

ap A ” d(,,u) Mf l + d(/,v, &P ) + d( f ,w) 

, TiE. i?+ ^_ A( ;„ )+ ^ A( ; v)+ ^ 

^ 1>7, L ^ 5(pw) 3(pv) 5(pw) 

",- 2 . 7 .* + 

easily be written 


F N t - 2J, k + - 1,7, * 

for the rj and £ boundaries. 


A 

A(pw) 

+ ■ 

dF 

dE T 

A 

A Ej 

n 





N x - 2J, k 

A 

A (pw) 

+ ■ 

dF 

dE r 

A 

A E T 

n 





AT, — 1.7,* 

A 

A(pw) 

+ 

dF 

dE r 

A 

AEj* 

n 

AW.* 


r 71 


1. This subroutir ■ uses one-dimensional addressing of three-dimensional arrays, as described in . xtion 
2.3. 

2. An error message is generated and execution is stopped if a non-existent user-written boundary condi- 
tion is specified. 
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Subroutine BCFLIN 

(IBC, IEQ, IBOUND, IMIN, IMAX, F, DFDRHO, DFDRU, DFDRV, DFDRW, 

DFDET, FBCMA, FBCMB, FBCPA, FBCPB, FBC) 

Called by 

Calls 


Purpose 

BCF 



User-supplied routine for linearization of user-supplied boundary' con- 
ditions. 



IBASE, ISTEP 


IBC 


IBOUND 

IEQ 

IMIN, IMAX 
ISWEEP 
II, 12, 13 
NIP, N2P 


Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Mean flow boundary condition types for current sweep direction, 
specified as IBC(I,J), where I runs from 1 to N eq , corresponding 
to the V„ conditions needed, and J = 1 or 2, corresponding to the 
lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary' condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Grid indices i,j, and k, in the £, rj, and £ directions. 

Parameters specifying the dimension size in the £ and rj directions. 


Output 

DFDRHO, DFDRU, DFDRV, 
DFDRW, DFDET 

F 


FBC 


FBCMA, FBCPA 


FBCMB, FBCPB 


Three-element arrays, specified as DFDRHO(IW), etc., giving 
the values of dFjdp, dFld(pu), dFld(pv), dFjdipw), and "> F/dEr ■ 

A three-element array specified as F(IW) giving the value of the 
function F at the boundary (IW = 1), at the first point away from 
the boundary (IW = 2), and at the second point away from the 
boundary (DV — 3). Values at IW — 3 are not needed for bound- 
ary condition types 91, 92, or — 92. Values at IW = 2 are not 
needed for boundary condition type 91. 

Boundary condition values for current sweep direction, specified 
as FBC(I,J), where I runs from 1 to N eq , corresponding to the 
conditions needed, and J = 1 or 2, corresponding to the lower and 
upper boundaries. This is only needed if values for GBC 1 , GBC2, 
or GBC3, or FBC1, FBC2, or FBC3, are not specified in the in- 
put namelist BC. 

Boundary condition values on the boundary, at the grid points 
"left" and "right" of the current boundary' point, in the first non- 
sweep direction. These are only needed for boundary condition 
types ± 93. 

Boundary condition values on the boundary, at the grid points 
"left" and "right" of the current boundary point, in the second 
non-sweep direction. These are only needed for boundary condi- 
tion types ± 93. 
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Description 


Subroutine BCFLIN is a user-written routine used in conjunctionjwith subroutine BCF for user-written 
boundary conditions of the form &F = 0, F —f dFjd<j> =f and Vi 7 * n—f BCFLIN supplies the values of 
F and its derivatives with respect to the dependent variables, which are required for writing the linearized 
form of the boundary condition. 

The version of BCFLIN supplied with Proteus makes BCF equivalent to BCTEMP, except for the total 
temperature options in BCTEMP. Thus F= T, dFjdp = dTjdp , etc., where T and its derivatives with re- 
spect to the dependent variables are computed using the perfect gas equation of state. (See Section 4.3 of 
Volume L) This version of BCFLIN is intended as an example for use in coding boundary conditions not 
already available. 

Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Section 
2.3. 

2. The capability of specifying FBC as an output variable may be useful in writing time -dependent 
boundary conditions. It also may be used when specifying boundary conditions involving derivatives 
in one of the non -sweep directions. In this case, the derivatives in the non-sweep directions may be 
lagged one time step and treated as source terms. 
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Subroutine BCGEN 

Called by 

Calls 

Purpose 

BVUP 

EXEC 

BCDENS 

BCF 

BCNVEL 

BCPRES 

BCQ 

BCTEMP 

BCUVEL 

BCWEL 

BCWVEL 

BC1VEL 

BC2VEL 

BC3VEL 

BLKOUT 

ISRCHEQ 

Manage computation of boundary conditions. 


Input 

* FBC1, FBC2, FBC3 

* IBC1, IBC2, IBC3 

* IDEBUG 

* IPRT1A, IPRT2A, IPRT3A 
ISWEEP 

IT 

IV 

II, 12, 13 
NBC 

NEQ 

* NOUT 

NPRT1, NPRT2, NPRT3 
NVD, NPTSD 

* Nl, N2, N3 

Output 

IBC, FBC 


IBOUND 

IEQ 


Point -by -point mean flow boundary condition values for the £, 
rj, and £ directions. 

Point-by-point mean flow boundary condition types for the £, > 7 , 
and £ directions. 

Debug flags. 

Indices for printout in the £, »?, and £ directions. 

Current ADI sweep number. 

Current time step number n. 

Index in the "vectorized" direction, 

Grid indices i,j, and k, in the £, 17 , and £ directions. 

Dimensioning parameter specifying number of boundary condi- 
tions per equation. 

Number of coupled equations being solved, N tq . 

Unit number for standard output. 

Total number of indices for printout in the £, 17 , and £ directions. 

Leading two dimensions for the arrays A, B, C, S, METX, 
METY, METZ, and METT. 

Number of grid points A'i , N 2 , and N 3 , in the £, rj, and £ directions. 


Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(I,J), where I runs from 
1 to N eq , corresponding to the N eq conditions needed, and J = 1 
or 2 , corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number, from 1 to N eq . 
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IMIN, IMAX 


Minimum and maximum indices in the sweep direction. 


Description 

Subroutine BCGEN manages the computation of coefficients and source terms for the mean flow 
boundary conditions. It first loads the NEQ boundary' condition types and values from the input arrays 
IBC1 and FBC1, IBC2 and FBC2, or IBC3 and FBC3, depending on the ADI sweep, into the arrays IBC 
and FBC. This was done so that the BC routines could be non-sweep dependent. Next the coefficient 
submatrices and source term subvectors at the two boundaries in the current sweep direction are initialized 
to zero. And finally, the appropriate BC routine is called, depending on the input boundary condition type, 
for each of the NEQ boundary conditions at each boundary in the sweep direction. 

Remarks 


1. An error message is generated and execution is stopped if the boundary condition type is less than 0 
or greater than 99. 

2. The Cray search routine ISRCHEQ is used in determining the grid locations for debug printout. 

3. This subroutine generates the output for the IDEBUG(3) option. 
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Subroutine BCGRAD (F,I J DFD1,DFD2,DFD3) 

Called by 

Calls 

Purpose 

BCDENS 

BCF 

BCPRES 

BCQ 

BCTEMP 

BCUVEL 

BCWEL 

BCWVEL 


Compute gradients with respect to £, rj, and £. 


Input 

DXI, DETA, DZETA 
F 

I 

ISWEEP 
II, 12, 13 
* Nl, N2, N3 

Output 

DFD1, DFD2, DFD3 


Computational grid spacing A£, A rj, and A£. 

A three-dimensional array, specified as F(I,J,K), containing the 
function/ whose gradient is to be computed. The subscripts I, J, 
and K run from 1 to JV„ N 2j and N 3 , respectively. 

Current grid point index in the current sweep direction. 

Current ADI sweep number. 

Grid indices i,j, and k, iri the £, and C directions. 

Number of grid points N\, A'/ and A/ in the / and C directions. 


First derivatives of / with respect to {, >j, and/. 


Description 

Subroutine BCGRAD computes first derivatives of the function / with respect to / rj, ai. £, at the 
current grid point in the ADI sweep direction. At interior points, the centered difference formula presented 
in Section 5.0 of Volume 1 is used. For derivatives with respect to £, 

( df \ — 

V “ ~ A? 

An analogous formula is used for y\ and £ derivatives. 

At boundary points three-point one-sided formulas are used. 

i *j* k 

(/v, - 2 ,j, k ~ 4 //Vj - 1 ,j, k + 3/v.J, k) 

£ derivatives. 




h A . , 2A - 

x AT„y ,* 


Again, analogous formulas are used for r\ and 
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Subroutine BCIMET (I,XXI,XETA,XZETA,YXI,YETA,YZETA,ZXI,ZETA,ZZETA) 


Called by Calls Purpose 

BC1VEL Compute inverse metrics at a point in the current sweep direction. 

BC2VEL 

BC3VEL 


ETAX, ETAY, ETAZ 

1 

ISWEEP 

II, 12, 13 

XIX, XIY, XIZ 

ZETAX, ZETAY, ZETAZ 


Output 


XXI, XETA, XZETA 
YXI, YETA, YZETA 
ZXI, ZETA, ZZETA 


Metric coefficients rj x , rj y , and rj 2 . 

Current grid point index in the current sweep direction. 
Current ADI sweep number. 

Grid indices /,/, and k, in the £, rj, and C directions. 
Metric coefficients £ x , and ^ 2 . 

Metric coefficients C y , and 

Derivatives of x with respect to rj, and 
Derivatives of y with respect to £, ?/, and £. 

Derivatives of z with respect to and 


Description 


Subroutine BCIMET computes the inverse metrics using the following formulas: 


x £ — j 

= y (vJ’x ~ v£z) 
Z l=-J (^y - VyZx) 

*r, = j(S£y-ty 'Q 

*,-7 («*“«*) 

= (^x*ly — ^yVx) 
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Subroutine BCMET (I,FM0,FM1,FM2,FM3) 

Called by 

Calls 

Purpose 

BCDENS 

BCF 

BCNVEL 

BCPRES 

BCQ 

BCTEMP 

BCUVEL 

BCWEL 

BCWVEL 

BC1VEL 

BC2VEL 

BC3VEL 


Compute various metric functions for normal gradient boundary con- 
ditions. 


Input 

ETAX, ETAY, ETAZ 

I 

ISWEEP 

II, 12, 13 

XIX, XIY, XIZ 

ZETAX, ZETAY, ZETAZ 


Output 

FMO, FM1, FM2, FM3 


Metric coefficients rj x , t] y , and tj 2 . 

Current grid point index in the current sweep direction. 
Current ADI sweep number. 

Grid indices i,j, and k, in the £, »j, and £ directions. 
Metric coefficients £*, £ y , and £ z . 

Metric coefficients £,, £,, and £ z . 


Various metric functions used for normal derivative boundary 
conditions. 


Description 

Subroutine BCMET computes metric functions used for normal gradient boundary' conditions. For the 
first ADI sweep, 

FMO = 7ix + 4 + 3 
FM1 = 0 

FM2 = { x ij x + Zyrt y + 

fm 3 =y,+^+y 2 

For the second sweep, 

FMO = Jnl + il + vl 
FMl = £ X ri X + iyYly + ljf\ Z 
FM2 = 0 

FM3 = V\£ x + riyCy + v£ 2 

And for the third sweep, 
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F\10 = Vd + Cj + Cl 
FM1 = £& + *& + ?& 
FM2 = tiji x + rjyCy + r\£ 2 
FM3 = 0 
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Subroutine BCNVEL (IBC, FBC, IEQ, IMIN, I MAX, IBOUND) 

Called by 

Calls 

Purpose 

BCGEN 

BCMET 

BCVN 

Compute normal direction velocity boundary conditions. 

Input 



DEL 


Computational grid spacing in sweep direction. 


DXI, DETA, DZETA 
IBASE, ISTEP 

IBC, FBC 


IBOUND 


Computational grid spacing A£, Arj, and AC- 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(I,J), where I runs from 
1 to corresponding to the N e < , conditions needed, and J — 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary , 2 for upper 
boundary. 


IEQ 

IMIN, IMAX 

ISWEEP 

IV 

11,12, 13 
JI 

METX, METY, METZ 


Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the "vectorized" direction, 

Grid indices ij, and k, in the £, >/, and C directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y, and z. 


♦ NOUT 

NR, NRU, NRV, NRW 
RHO, U, V, W 


Unit number for standard output. 

Array indices associated with the dependent variables p, pu, pv, 
and pw. 

Static density p, and velocities u, v, and w, at time level n. 


Output 

Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

S Source term subvector S at boundary IBOUND (element IEQ 

only). 


Description 

Subroutine BCNVEL computes coefficients and source terms for normal direction velocity boundary 
conditions. The linearized equations for the various general types of boundary conditions are developed in 
Section 6.0 of Volume I. The following sections apply these generalized equations to the particular normal 
direction velocity boundary conditions in Proteus . 8 


s 


In the following description, for the first and second ADI sweeps 
* and **, respectively, representing the intermediate solution. 


the dependent variable should have the superscript 
and for the third ADI sweep it should have the 
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Specified Normal Velocity , V n = f 


The normal velocity is defined as 


K = 


V.n 


where n is the unit vector normal to the boundary. For a £ boundary, 


- n 

n |V{| 


1 « t 


= — £ 
m s - 


i + 


m tyj + m 


where 

m = J J} + iy + J} 


Therefore, for a £ boundary, 


Note that the unit vector n is in the direction of increasing £. Therefore V n is positive in the direction of 
increasing £. Thus, a positive V n at £ = 0 implies flow into the computational domain, and a positive V n 
at £ = 1 implies flow out of the computational domain. 

Similarly, for an y \ boundary, 


v H - 


m 


(t] x U + + t] z w) 


where 


/ 2 . 2 . 2 
™ = V Vx +Vy + 

and V„ is positive \ . the direction of increasing r\. 

And, for a C boundary, 


K = f(^ + ^ + ^) 


where 


fy 2 , y 2 . r 2 

™ = v Cx + Cy + £* 


and K n is positive in the direction of increasing £. 

Applying equation (6.5) of Volume 1 , the linearized boundary condition at a £ boundary becomes 

Z X U+ ZyV+^W A ^ A £ V 


/7I 


u*r . 

%j,k 


A(A) + %) + A(A-)1 =4y.V - (^)”y, 

-hj, k 


Analogous equations can easily be written for the > 7 and £ boundaries. 


superscript n> representing the final solution. For simplicity, however, only the superscript n is used. The super- 
scripts on all other variables are correct as written. 
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Specified Two- Point Normal Velocity Gradient in Coordinate Direction, dVJd £ = f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 

J\ i k T A £y A a l" 

-^77 - P A^A(pu) + ^A(pv) + ^A(pw)j 

L — 1 l,y, Jfe 

J-) i k r Zx u + Cy V + Zz W A A A £ 2 A “l” 

• r~" J —Ap+^-A(pu) + -^- A(pv) + ^-A(pw) = 

2 >j* k L 


YYl'i 




At the | = 1 boundary, 

A- 


•/ V, _ 1 ; k ["" £ x u + £ v V + £-W f A A A ”1 

~ 7 - Ap + ^A(pu) + -^A {pV ) + -fA(p W )\ 

"i - ij.k L _ i j t , 

■ j b r £ X U + <j; v V + t-W l A £y A , A -| 

-^j— A P + — A(pu) + —p- A(pv) + — A(pw) J 


J } 


J *W >k 


(A MZ+jlk + ( v n)\ - W. ft - ( V n)\j,k 
Analogous equations can easily be written for the rf and £ boundaries. 

Specified Three- Point Normal Velocity Gradient in Coordinate Direction > dV n ld<j> = f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 


ing, 


m u.k L 


Z x u + + Z 2 w £ 


Sy A ^ Y 

J A r -A I A l \ I 


-J- A(pw)l 

-ll,y,ft 


ii-f- 

y 3,;,fe r 

m 3,j,k L 


/ 


Ap + — A(pw) + — A(pv) + 

A p+-jr A{pu) + A(pv) + A A(pH')”| 


J') ) ]r r ^ + ^v V £7^ A A £y A A ”| 

** * y * 2 a A , Kf - .A 1 Z 


J 


£ + £ v V + £,W A A £y A 

— 5 Ap + ~~ A {pu) + -f A (pv) '+ A(pw) 


2J,* 

77 


-] - 

-*3,7 , k 


2(A£1/j jj? + W n )lj, k - MV n ) n 2, hk + {V n )lj, k 


At the J = 1 boundary, 


J s l -2j.k r 

m S,-2,j,k L 


2 r w -r C, V K -r A A £y A a 

- Ap + — A(pw) + — A(pv) + — A(pw) 


+ £ v v + <J 2 w 


'] 


-4 


Ay, - 1 ,y, i r Cj 


r 

^ -u.* L 

VjU r 

tyj.* L 




h\-2J,k 
77 


_ A y A A “I 

Ap + A (pu) + -j- A (pv) + -f A (pw) 

J Ar, — l.y, 

A A A ^7 A 1 

Ap 4- -p- A(pw) + — A(pv) + — A(pw) ~ 

-* Ai . k 


2(AZ)Y-f k ~ {V n )\ - 2 j, k + — 1 ,j, k ~~ Wn)\j,k 
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Analogous equations can easily be written for the t] and £ boundaries. 

Specified Two- Point Normal Velociti Gradient in Normal Direction, W„-n=f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 


J UJ.k f 

™\ j.k L 

m 2.j.k L 


% X U 4 - £ y V + % Z W £ A £y 

— j Ap + -f A (pu) + -jf A(pv) 


i x u + £ y v + £ z w 


A £, A "T 

ov) + -J- A(pw) 

-*1 J.k 

. £*. A £y A £7 A I 

Ap + — A(pu) + — A(pv) + — A(pw) = 


_A£ 


^ + 1 

+ ( ^n) l,J, k — i 


(fx^x b f> ,r ly b ,j, k . 


2 J, * 

! 1J.* 


r x-x^x ■ *y*y ■ »-<-*'* .j.k. £ /T7 ,?! 

m, >y> * V 1 J. k m Xjk ¥ V n) 1 ,j. k 


and (5, and S ( are the centered difference operators presented in Section 5.0 of Volume 1. At the £ = 1 
boundary, 


-\J,k 

b\j.k r 

J.k |_ 

^ r 

w.* l M ' lk 


£ X U + £yV + Z 2 W £ A £y A 

— - p — Ap + -jp- A (pu) + A(pv) + 


m -v,, 


£_w + £ v v + <£,w 


£ z A "I 

~^A(pw) 

-* iv, — 1 ,y, 

Ap + — A (pu) + — A(pv) + — A(pw)J 


A',.;,* 


A £ 

m ,v, 


(^x*1x b ^yVy b ^ 2 ^ 2 ) k 


*rfyjN x .J.k- 


ifxfx b £y£y b N\,j, k 

m N l ,j,k 




■ k ~ m N„j,k 

+ i V n)N x -\,j,k - i V n)N v j,k 

Analogous equations can easily be written for the >j and £ boundaries. 

Specified Three- Point Normal Velocity Gradient in Normal Direction, VV„-n = f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing, 


+ 4 


A, j.k 

Z x u + £yV + £ z w 

m \ J.k 

P 

/z * 

t x u + £yV + £ z w 

m 2J,k 

“ P 

J 2J, k 

+ £yV + £ z w 

m 2,j,k 

P 


A £ r A £y A £, a “1 

Ap + — A (pu) + — A(pv) + — A(pw)J 

'] 

1 


P 

Zx A 


A A 

A pby A (pu) + A(pv) + -f- A(pw) 


K A £ A 

A P + ~f- A {pu) + A (pv) + A(pw) 


l J.k 
n 

2, j.k 

,71 


2 A£ r n + 1 


_2A£ 
m 


(Zx’1x+ ZyVy + Zdh)\,j,k- 


m l J.k 

+ Wn)lj,k-W n )ij. k + (K)lj, k 


V V n)C.j.k ~ 


-*3 ,j, k 


m 
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and <5, and <5 { are the centered difference operators presented in Section 5.0 of Volume 1. At the £ — 1 
boundary, 


J N X - 2 , 7 , k 

- Z x u + £7 + £ 2 w 

m Ni - 2 ,i, k 

p 


$ x u + £ y v + £ 2 w 

T 

m S\ - 1 , 7 , k 

p 

+ 3 ^ 1 

r £*« + + ^z w 


A €y A 


A p + - 7 - A(/>«) + -p- A(pv) + 

l 




-7- A0>w)*l 

A p + -f A (pw) + - 7 - A(pv) + -y- A(pw) 

a Cy A £y A £ 2 A ”1 

Ap + — A (pu) + — A(pv) + — A(pw) I 


_ 2 A^ 


r , n+1 


dx^x “1“ "h ^2^z)Ni,j, k 


(ZxZx + ZyZy+^Mj.k 


WlJ , k M^J.k- 

— (^n)y, - 2 J, £ + - 1 J, fc — ^(^n)iVj,./, * 


Analogous equations can easily be written for the r\ and £ boundaries. 
Linear Extrapolation of Normal Velocity 

Applying equation (6.14) of Volume 1 at the £ = 0 boundary, 

£v 


-2 


+ 


•^l , 7 ',/c 

Z X U + £_yV + £ 2 w 

™w,fc 

P 

h,}, * 

- Z X U + ZyV + £ 2 w 

m 2J, k 

~ p 

J 3J,k 

- £ x k + ZyV + £ 2 w 

m 3J,k 

p 


A £ r A L A A “I 

Ap + — A(pu) + - 7 - A(pv) + — A(pw) 

— • t.y, Ar 


v ^ ^ E 

Ap + A foil) + -f A(pv) + -f Afow) 


] 


2J,k 
n 


£ y. A A £7 A 

Ap + — A(pu) + — A(pv) + — A(pw) 

J 3J, k 




At the £ = 1 boundary, 


-2 


•V, — 2,7, k 

£ x u + iyV + 

m N 1 - 2,7, k 

p 

Jn x - I,/, k 

- i x u + Z y v + £ 7 w 

m .\\ - 1 ,7, k 

p 

J N x ,j,k 

i x u + ZyV + £ 2 w 

m N x ,j,k 

P 


Ap -b — A(pw) + A(pv) + — A(pw) J 


* A £ A E A 

A p + - 7 - A(p«) + - 7 - A(pv) + - 7 - A(piv) 


Ap + — A (pu) + — A (pv) + — A(pw) J 


'at, -2 ,j,k 

n 

N x -\J.k 

n 


N x J y k 

- {V n )\ _ 2J%k + 2 (K/ a , _ lf7 . * - (V n )\ J>k 

Analogous equations can easily be written for the ty and £ boundaries. 

Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Section 
2.3. 
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2. An error message is generated and execution is stopped if a non-existent normal direction velocity 
boundary 7 condition is specified. 
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Subroutine BCPRES (IBC,FBC,IEQ,IMIN,IMAX,IBOUND) 


Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute pressure boundary conditions. 


Input 

CP, cv 
DEL 

DPDRHO, DPDRU, DPDRV, 
DPDRW, DPDET 

DTDRHO, DTDRU, DTDRV, 
DTDRW, DTDET 

GC 

IBASE, ISTEP 
IBC, FBC 


IBOUND 

IEQ 

* IHSTAG 
IMIN, IMAX 
ISWEEP 

IV 

JI 

* NOUT 

NR, NRU, NRV, NRW, NET 

P, T 
PR 

RGAS 

RHO, U, V, W 

* RHOR, UR 


Specific heats c- and c v at time level n. 

Computational grid spacing in sweep direction. 

Derivatives dpi dp, dpld{pu), dpjd(pv), dpld(pw), and dpj dEr- 

Derivatives dTjdp, dTjd(pu), dTld(pv), dTjd{pw), and dT/dEr- 

Proportionality factor g c in Newton's second law . 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(U) and FBC(I,J), where I runs from 
1 to N, q , corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Flag for constant stagnation enthalpy option. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the "vectorized" direction, C 

Inverse Jacobian of the nonorthogonal grid transformation, J~ '. 
Unit number for standard output. 

Array indices associated with the dependent variables p, pu, pv, 
pw, and Et- 

Static pressure p and temperature T at time level n. 

Reference pressure p r . 

Gas constant R. 

Static density p, and velocities u, v, and w, at time level n. 
Reference density p, and velocity u r . 



Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary IBOUND (element IEQ 
only). 
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Description 


Subroutine BCPRES computes coefficients and source terms for pressure boundary conditions. The 
linearized equations for the various general types of boundary conditions are developed in Section 6.0 of 
Volume 1. The following sections apply these generalized equations to the particular pressure boundary 
conditions in Proteus. 9 

No Change From Initial Conditions , Ap = 0 

Applying equation (6.3) of Volume 1, and noting that dg/dQ = Jdg/dQ , we get simply 


J iJ, k 


dp A dp a dp a dp a dp a 

A P + "^7777 A (P“) + A(pv) + -ST^r A( P w) + A£ r 




5(p«) 


d(pv) 


5(pw) 


= 0 




The derivatives dpi dp, dpjd(pu), etc., depend on the equation of state. They are defined for a perfect gas 
in Section 4.3 of Volume 1. 

Specified Static Pressure, p = f 

Applying equation (6.5) of Volume 1, 


J iJ y k 


dp A dp a dp a dp a dp * 

A P + — A 0>“) + -577X a (p v ) + 77777" a (p w ) + -QE~ AE r 


dp 


d( P u) 


d{pv) 


d(pw) 


U > k 


f n -f- 1 PrSc n 
z JiJ t k 2 PtJ>k 
Pr u r 


Specified Two-Point Pressure Gradient in Coordinate Direction , dp\d<j> — f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 




dp A dp a dp a dp a dp * 

di Ap+ Km A(pW) + A(pV) + A(pW) + ~dE^ AEt 


■I 

J l j,k 


r dp r, dp A dp A dp a dz? A ” 1 ” 


/ » r* + 1 Pt&c , _n _n 
(Aci/i J, * r + P\ J, k ~ Pi,], k 
Pr u r 


At the £. = 1 boundary, 
- J 




dp . dp a dp a dp ^ dp 0 , 

17 i? + 777 iW + 777 ^ + 777 A(,, “’ ) + ^ 




*W- * 


dp A 

5 P Ap + <?( P w) 

r * + 1 P&c 


dp a dn a dp * dp * 

A (P“) + “57777 A (/> v ) + 777777 A (P W ) + ~q£~ AE T 


- J ATj - l.y.fe 


d(pv) 


d(pw) 


J AW-* 


, a + 1 rT&c . n n 

k 2 _ 1 »/, £ k 

Pr u r 


9 In the following description, for the first and second ADI sweeps the dependent variable should have the superscript 
* and **, respectively, representing the intermediate solution, and for the third ADI sweep it should have the 
superscript n , representing the final solution. For simplicity, however, only the superscript n is used. The super- 
scripts on all other variables are correct as written. 
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Analogous equations can easily be written for the rj and £ boundaries. 
Specified Three-Point Pressure^ Gradient in Coordinate Direction, dp!d<j> = f 


Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 


ing, 


-3/ u ,,r 




+ 47 


2 J’ k dp 


£ * + 44 W - 44 A* + A0>w) + ^-AS T 


k 


A(pu) + 


A(pv) + 


d(p«) 

dp A a , dp 
dp Ap + d(p«) 

2 ^V\j,k -^T + 3 p b, * - 4 ft", 7 * + ft" 7 * 

Pr“r 


d(pv) 

dp 

3(pv) 


d(pw) 

dp 


L 

] 


2,7 * 

n 


d(pw) 


A A T 

A(pw)+ d£^ A£ H = 

J 3,y, /c 


At the £ = 1 boundary, 
J 


' N x - 2,7, fc 


Ap + - A {pu) + — ■ A(pv) + -Jr-—r A(pw) + -J?- A£ r 

do r dfont ' dfov) vr 7 d(pw) 0E t 


~ 4-V, - 1,7* 

+ k 


dp 

dp a 

d7 Ap+ d^ 


d(p«) 

dp 


d(pv) 

A(pU)+ d^ A(pV) + 


dp 


A (p^) + -^£- A£ r 


dp A dp a dp * 

i a ' + a 4 iM+ a(^ 4 ^ ,+ 

r-n + 1 /V& 


d(pw) 

dp 

d(pw) 

dp * dp a 


J A^ -2,7, A 

-irt 


- J AT | - 1,7, * 

-i* 




- 4 - 2,7, * + 4 4 - 1 ,7, it - j. * 

Pr“r 

Analogous equations can easily be written for the r] and C boundaries. 

Specified Two-Point Pressure Gradient in Normal Direction , Vp« j? =/ 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 


j rjp 

- y u,*L ap 

r dp 

+ J 2,j,k^-fy-r ■ 8{pu) 

, PrSc 

771] j h h J> k 2 
1.7* [_ Pr n r 


a dp a dp a dp . , A . dp a 

Ap + — — — A(p«) + — — — A(pv) + — — — A(pw) + A£y 

H d(pu) v ' d(pv) d(pw) ^ oEj 


. do a dp a dp a 

A P + a/.. A A 0> w ) + a/., A A (P V ) + a/. ..A A 0 3U? ) + 


d(pv) 


d(pw) 


•1 

-*1,7', k 

J 2,7,/c 


(fjtfjc + ^ + &zh ,7 * , „ ( Wjc + fyCy + £/*) 1 ,7 * t » 

Vl .7 * Vl .7 * 


m U7* 


t _ ri n 

+ P\,j,k—P2,j,k 


where 
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and 6 n and S c are the centered difference operators presented in Section 5.0 of Volume 1. At the £ = 1 
boundary, 


[ dp a dp a dp a dp A , A % 5/? 

17 Ap + in' A(pu) + in A(pv) + A(pw) + 

+ k 


7 4? + afer 4 * + W + afe- ** + W 4£ ' 


4£ r l 

-l" 

Erl 

— * V. # 




m N\,j, k 


PrZr (t&x+tyHy+Z/lih \J.k , „ (Z£x + fyZy+ t n 

Wl k r w A r ,r ~ V^.y. * rnfTTZ Vat, J. * 

Pr U r 

+ PN l -U,k~PKiJ,k 


m N lt j,k 


Analogous equations can easily be written for the tj and C boundanes. 

Specified Three- Point Pressure GradierU in Normal Direction, Vp-n = f 

Applying equation (6.12a) of Volume 1 at the { = 0 boundary, and using three-point one-sided differ- 
encing, 


J, k 




+ 41 


J. * [ -f - 4 a + 4(/,A “ ) + aw 40>Av) + aw 4( '’“' ) + W 4£r 


_ , [ jp 

■ /3 ^*L dp 

rn + 1 

h J,k 


A p + 


d(pu) 

dp 


A (pu) + 


d(pv) 

dp 


2A£ 

™\J,k 


d(pu ) ■ 5(pv) ^ ' d(pw) 

n + 1 PrSc + fy*fy + Zzfhhjjl 


a dp a ■ 3n 

A(pv) + — - A(pw) + -rpr- A£ 


5£ t 


•r. 

J i»y 1 

■T 

Jo i 


A 

= 

- o ; t 


Pr"r 

+ 3/>” j t k - 4 P2,j, k + Pi.j, k 


m \ J,k 


trfij.k- 


3,y, k 

(tex+tyZy + S&hj.k 


m 


i J.k 


Vu. 


where 

and <5, and <5 { are the centered difference operators presented in Section 5.0 of Volume 1. At the f = 1 
boundary, 


88 4.0 Proteus Subprograms: BCPRES 


Proteus 3-D Programmer's Reference 


^‘Vi — 2,j,k 


dp A dp A dp K , A x dp A 

37 4,1 + 3(77 A(, ’“ ) + 3(77 ( ' >v) + '777 ( ' ,w> 




- 4 \ - U. * [|r 4 ' + 3^7 4 * + 3M A( '” 0 + 777 ^ + ^ ^ 


Ni-lJ.k 


r] 


am + « + 4i- d- 

dp o{pu) 


*W- k 

A£ P /-/I + ] Pr&c 
' i k \ *N l J,k 2 
" J ' k [_ 


1 + ^ A(pv) + In A(pw) + oet A r 


-.Ti 
- / 


2A£ 

"'AT,./ 


(AxVx + t/ly + Z&ziNyJ.k 


V*W> fc ' 


m M u j,k 

~ Pn \ - 2J, k + ^PN X - 1 J, k ~ 3 />AW. * 

Analogous equations can. easily be written for the t] and C boundaries. 
Linear Extrapolation of Static Pressure 

Applying equation (6.14) of Volume 1 at the <* = 0 boundary, 


N x J,k 

(£x£x + £y£y + Z£z)fr\J,k 
m N x ,j,k 


^i p N x J, k 


•A ,y, £ 


3n a dp a dp a dp * . dp a 

-r— Ap + — — — A(pw) + — — — A(pv) + — — — A(pw) + AEj 

dp d{pu) r d(pv) vr d(pw) ^ dt T 


+ ‘ / 3,y.*r 


_ dp A 3z? A dp A So A 

Ap + A(pw) + an A(pv) + d^) - A(pw) + ~dE^ AEt 


^-Ap + -Jf—r A(pw) + A(pv) + ^ p A(pw) + AE 

dp H d(pu) ^ J d(pv) ^ 3(pw) ^ 3£ r 


■I 

j uj 

■I 

Jo / 


SrT - 


_ 7 J 1 ^ ^ 

_ Pi ,y, £ + 2 p 2 > j > /j - P 3 J_ * 
At the c = 1 boundary, 


'AT] - 2,y. k 


-2 J, 


AT, - 1,7, k 


+ A’„y, k 


d7 Ap + 

d(p«) 

f A? + 

dp 

dp 

d(pw) 

dp A A -l. 
-T— A P + 

dp 

•3/ .A 


a 3 z? A dp A 3/> a 
a (p u ) + 373T A (? v ) + 3773T A ^ w ) + "a£7 A£ r 


A(pu) + 


A(pw) + 


A(pv) 


d(pw) 

dp a dp a 

-r : — - A(pw) + — 7T- A£ r 
d(pw) d£ r 


d(pv) 

dp 

d(pv) 

3/7 A 3/7 A dp A 

aiTT 4(,,,) + 3(77 A0>w) + W r 


-.H 
-J A 


/V, - 2 , 7 , * 


T 

]” - 

J Ar,,y\£ 


7 Z 1 ^ 

~ PjNTj - 2J, k + 4PjVi - 1 k - PN X J , * 

Analogous equations can easily be written for the >/ and C boundaries. 
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No Change From Initial Conditions for Total Pressure, A pr= 0 


The total pressure is defined as 


Pt = P\ 1 + 


y - 


I a/)'- 1 


Applying equation (6.3) ofYolume 1, we get 


J i,j,k 


dPr 

d P 


A p + 


&Pt 

d( P u) 


A(pu) + 


dPr 

d{pv) 


A(pv) + 


dPr 

d(pw) 


A DPt ^ 

A(pw) + — A E t = 0 


k 


where 


dp T dp{ l+ y- \_ m2 


dp 


dp T 

dp 

d(pu) 

d(pu) 

dp T 

- 8P 1 

d(pv) 

d( P v) 1 

dp T 

dp 


)'- , + ,i.( 1+ i i I*) 


_J 

v- 1 dM 2 


dp 


( , , v - i y ~ 1 , y , y - 1 y_ 1 
( + 2 M J 2 ( 1+ 2 M ) d(, 


dM 

d{pu) 


y - 1 .^V ' 1 <w 2 




d(pv) 


d(pw) d(pw) 

dPr dp 


( 


i + 


y - 


( 


dEx dE r 
The Mach number is defined by 




L ^)" ,+ 'tO +z t i " 2 )'"' 

)- + „l( 1+ izi„ 2 ) 


- 1 dAT 

5(pw) 


y- 1 5A/ 2 


, ,2 w 2 + V 2 + w 2 (pw) + (p v ) + (pw) 
M —■ ~ 


yRT 


yRp 2 T 


The derivatives dM 2 jdp, etc., can then be derived as 


dM 2 

= — a/ 2 | 

f 2 

1 dT 

dp 


T dp 

dM 2 

2u 

M 2 

dT 

d{pu) 

yp 

T 

d(pu) 

dM 2 

2v 

M 2 

dT 

<5 (pv) 

yp 

T 

5(pv) 

dM 2 

2w 

M 2 

dT 

d(pw) 

yp 

T 

d(pw) 

dM 2 

M 2 

dT 


dE T 

T 

dE T 
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Specified^ Total Pressure, Pt= f 

Applying equation (6.5) of Volume 1, we get 


/i J, i 


dp T a dPr A &Pt , A - ^Pt . , A . , & Pt a A 

— — A p H — A(p«) + — — - A(pv) + — — - A(pw) + . F Afy- 

p d(pu) KP ’ d(pv) J d( P w) VK d£ r 


J - 

J ij, k 


r n + 1 PrSc _n 

Jij, k i Pi.j, k 

Pr u r 




i.j.k 


where p T , dp T jdp, etc., are defined above as part of the description of the Ap T = 0 boundary condition. 


Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Section 
’2.3. 

2. An error message is generated and execution is stopped if a non-existent pressure boundary condition 
is specified. 

3. The multiplying factor p t g c ]pM} that appears with specified values of pressure and pressure gradients is 
necessity because input values of pressure are nondimensionalized by the reference pressure 
p r = p r R Trlg c , while internal to the Proteus code itself pressure is nondimensionalized by the normaliz- 
ing pressure p„ = p Mr . (See Section 3.1.1 of Volume 2.) 
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Subroutine BCQ (IBC,FBC,IEQ,IMIN\IMAX,IBOUND) 


Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute conserv ation variable boundary conditions. 


DEL 

DXI, DETA, DZETA 
IBASE, ISTEP 

IBC, FBC 


IBOUND 

IEQ 

IMIN, IMAX 
ISWEEP 

IV 

II, 12, 13 

JI 

NC, NXM, NYM, NZM, NEN 


* NOUT 

RHO, U, V, W, ET 


Computational grid spacing in sweep direction. 

Computational grid spacing Af , A t], and AC- 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(I,J), where I runs from 
1 to iV,„ corresponding to the conditions needed, and J = 1 
pr 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the "vectorized" direction, U 

Grid indices i,j f and k , in the f, rj, and C directions. 

Inverse Jacobian of the nonorthogonal grid transformation, 

Array indices associated with the continuity, x-momentum, 
j;-momentum, z-momentum, and energy equations. 

Unit number for standard output. 

Static density p, velocities w, v, and w, and total energy E r at time 
level n. 


Output 

A, B, C 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary IBOUND (element IEQ 
only). 


Description 

Subroutine BCQ computes coefficients and source terms for conservation variable boundary conditions. 
The linearized equations for the various general types of boundary 7 conditions are developed in Section 6.0 
of Volume 1 . The following sections apply these generalized equations to the particular conservation vari- 
able boundary conditions in Proteus.™ 


In the following description, for the first and second ADI sweeps the dependent variable should have the superscript 
* and **, respectively, representing the intermediate solution, and for the third ADI sweep it should have the 
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No Change From Initial Conditions , A Q = 0 


Applying equation (6.3) of Volume 1, and noting that dgfd Q — Jdgjd Q, we get simply 

where Q is the element of Q for which this boundary condition is to be applied. 

Specified Conservation Variable , Q~ f 
Applying equation (6.5) of Volume 1, 

r a + 1 r\K 

Ji y j, k j, k 


Specified Two- Point Conservation Variable Gradient in Coordinate Direction, dQJd± = f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 

— J l J, k A Q\J, k + ,j, k A Ql,j, k ~ i A Qf \ + 01 J, k ~~ 02,7, k 
At the £ = 1 boundary, 

- J ,\- - l j, k A 0.V, - 1.7, k + J N v j, k A Q\j> k = ( A iV^j!k + 0W, - 1.7, k ~ Qb\,j, k 
Analogous equations can easily be written for the r/ and £ boundaries. 

Specified Three- Point Conservation Variable Gradient in Coordinate Direction, dQJd<t> =f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 


ing, 


~ 2 A,j,k A Q\J, k + k A Ql,j, k ~ J 2.j, k A QlJ, k ~ 

2(A m"lk + 30?./. k - 402,7, * + 03,7, k 


At the | = 1 boundary, 

j A', - 2,7, k A0.V, - 2,7, k ~ - 1,7, k A 0j V, — 1,7, k + Vy,,7. k A Qn } J, k ~ 

2(A £) ~ Q\ - 2,7, * + 40.v, - I,;, * - 3 Qkl k 

Analogous equations can easily be written for the r\ and £ boundaries. 

Specified Two-Point Conservation Variable Gradient in Normal Direction , VQ-n =f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 

superscript n, representing the final solution. For simplicity, however, only the superscript n is used. The super- 
scripts on all other variables are correct as written. 
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where 


A* 


m \,j,k 


~ J 1 J, k A Ql,j, k + JjJ, k A Q 2 J, k ~ 

r n + 1 + ^z r h)\,j,k £ ^ „ (Zx£x + ?y^y + £/z)l ,7, k _ ^ n 

nj,k 1 %^ij,k ^7—7 °&\.j,k 


1 J.k 


+ Q\J, k ~ Ql.j, k 


m 


= VV + Zy + 


and <5,, and <5^ are the centered difference operators presented in Section 5.0 of Volume 1. At the f = 1 
boundary, 


A /i % 

•/v) -\,j,k A Q,\\ -\,j,k + J N u j, k A 2,V„y, * = 


AC 


J y k 


sn+ 1 £ ^ + £/.?)Ar,,7, fe £ 

^iJ.* °n"N}J>k m N h j,k °<¥ N \ J‘ k 


m N x J,k 
+ Qnj - i,y, * _ Qn } j, k 

Analogous equations can easily be written for the rj and £ boundaries. 

Specified Three- Point Conservation Variable^ Gradient in Normal Direction, VQ- n = f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing. 


2AC 

m \j,k 


~ 3/ i J, k A QlJ, k + 4Jl J, k A Qij, k ~ /} J. k A QlJ, k ~ 

, U*x+t/l, + tfiJlJ.k . (Z£ X + + Uthj.k . 

h j,k ”hjj< d »/Vi j, k mTTZ °$£\ J,k 


l J.k 


+ - Q\j , * _ 4 C”y, * + Q"j, k 


where 


m 


= y/TJ+ T) + 


and <5, and S. ; are the centered difference operators presented in Section 5.0 of Volume 1. At the £ = 1 
boundary, 


2A£ 

m \j,k 


A n A /i A n 

ZlV, -2, j.k A Qn\ - 2,7, * — ^/v, - 1 J, k A Qn x - 1 J, k + 3/\r„7, A A Qn x J, k = 

r n + I (£**?* + + Z&^NtJ'k E ^ „ (^x + + y?)iV,J,* £ ^ n 

■'N 1 ,j,k mfj_ i b d r l ( dN l ,j,k m v . fr v^Ni.j.k 


m Vi J.k 

— Ql\ - 2,7, k + 4 C,V : - 1 ,7, A — ^QVi.j, k 
Analogous equations can easily be written for the tj and C boundaries. 

Linear Extrapolation of Conservation Variable 

Applying equation (6.14) of Volume 1 at the £ = 0 boundary, 

/ 1 ,7, k A Q\J, k ~ 2/2,7’ , k A <22,7, k + hj, k A Qjj, k~ ~ Cl, 7, k + 2 Q"j, k ~ QlJ, k 
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At the l = 1 boundary, 


^V, - 2J, k A 2y, - 2J, k ~ 21 - 1,A * A QNi - \,j, k J N x ,j, k k £?V, - 2,j, k + - 1 J, k Q . 

Analogous equations can easily be written for the r\ and £ boundaries. 


Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Section 
2.3. 

2. An error message is generated and execution is stopped if a non-existent conservation variable boundary' 
condition is specified. 
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Subroutine BCSET 

Called by 

Calls 

Purpose 

MAIN 


Set various boundary condition parameters and flags. 


Input 

* GBC1, GBC2, GBC3 

* GBCT 1 , GBCT2, GBCT3 

* GTBC 1 , GTBC2, GTBC3 

* IBC1, IBC2, IBC3 

+ IHSTAG 
ITDBC 


* ITURB 

* JBC1, JBC2, JBC3 

* jbcti, jbct2, jbct3 

* JTBCl, JTBC2, JTBC3 

* KBC1, KBC2 KBC3 
NBC 

NEQ 

* NOUT 

* NTBC 

* NTBCA 


* Nl, N2, N3 

Output 

FBC1, FBC2, FBC3 
FBCT1, FBCT2, FBCT3 
IBCELM 


Surface mean flow boundary condition values for the £, *7, and £ 
directions. 

Surface k-t boundary condition values for the £, rj, and £ di- 
rections. 

Time-dependent surface mean flow boundary condition values for 
the £, rj , and £ directions. 

Point-by-point mean flow boundary condition types for the £, t], 
and £ directions (if set in input.) 

Flag for constant stagnation enthalpy option. 

Flag for time -dependent mean flow boundary conditions; 0 if all 
boundary conditions are steady, 1 if any general unsteady bound- 
ary conditions are used, 2 if only steady and time-periodic 
boundary conditions are used. 

Flag for turbulent flow option. 

Surface mean flow boundary condition types for the £, rj , and £ 
directions. 

Surface k-t boundary condition types for the £, rj, and £ directions. 

Flags for type of time dependency for mean flow boundary con- 
ditions in the £, tj, and £ directions. 

Boundary types for the £,17, and £ directions. 

Dimensioning parameter specifying number of boundary condi- 
tions per equation. 

Number of coupled equations being solved, N eq . 

Unit number for standard output. 

Number of values in tables for general unsteady boundary condi- 
tions. 

Time levels at which general unsteady boundary conditions are 
specified. 

Number of grid points N u N 2 , and A T 3 , in the £, r \ , and £ directions. 


Point -by-point mean flow boundary condition values for the £, 
r j, and £ directions. 

Point-by-point k-t boundary condition values for the £, rj, and £ 
directions. 

Flags for elimination of off-diagonal coefficient submatrices re- 
sulting from three-point boundary conditions in the £ and/or rj 
directions; 0 if elimination is not necessary, 1 if it is. 
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IBC1, IBC2, IBC3 


IBCT1, IBCT2, IBCT3 


IBVUP 

JBC1, JBC2, JBC3 
KBCPER 


NPT1, NPT2, NPT3 


Point-by-point mean flow boundary condition types for the £, > 7 , 
and C directions. 

Point-by-point k-t boundary condition types for the £, rj, and £ 
directions. 

Flags for updating boundary values from first two sweeps after 
third sweep; 0 if updating is not necessary, 1 if it is. 

Surface mean flow boundary condition types for the £, > 7 , and £ 
directions (if using the KBC meta flags.) 

Flags for spatially periodic boundary conditions in the £, rj, and £ 
directions; 0 for non-periodic, 1 for periodic. 

N u N 2 , and N 3 for non-periodic boundary conditions, Ni+l, 
N 2 + 1 , and Nz + 1 for spatially periodic boundary conditions in 
£, rj, and £. 


Description 

Subroutine BCSET sets various boundary condition parameters and flags. It first sets NPTl, NPT2, 
and NPT3, the number of grid points in each ADI sweep direction to be used in computing coefficients and 
source terms. For spatially periodic boundary conditions in the £ direction, NPTl = N 1 + 1 . Similarly, for 
spatially periodic boundary conditions in the rj direction, NPT2 = N2 + 1. And, for spatially periodic 
boundary conditions in the £ direction, NPT3 = N3 -I- 1. This is done in order to use central differences 
at the periodic boundary. (See Section 7.2.2 of Volume 1.) 

Next, if the boundary types are being specified using the KBC meta flags, the appropriate mean flow 
surface boundary condition types are loaded into the JBC arrays. Special flags are set if spatially periodic 
boundary conditions are being used. Then, unless the mean flow boundary conditions are being specified 
point-by-point using the IBC and FBC parameters, the appropriate IBC and FBC parameters are loaded 
with the JBC and GBC values. 

If three-point gradient or extrapolation mean flow boundary conditions are being used, a flag is set for 
e liminatin g the resulting off-diagonal coefficient submatrix. If gradient (two-point or three-point) or ex- 
trapolation mean flow boundary conditions are used during the first or second sweep, a flag is set for up- 
dating the £ and rj boundary values after the third sweep. 

Next, for turbulent flow using the k-t model, if the k-t boundary conditions are being specified using 
the JBCT and GBCT parameters, the appropriate point-by-point boundary condition types and values (the 
IBCT and FBCT parameters) are loaded with the JBCT and GBCT values. 

And finally, the input boundary condition parameters are then written to the standard output file. 

Remarks 

1. An error message is generated and execution is stopped if an invalid boundary type is specified with the 
KBC meta flags. 
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Subroutine BCTEMP (IBC, FBC, IEQ, IMIN, IMAX, IBOUND) 

Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute temperature boundary conditions* 


Input 


CP, cv 
DEL 

DTDRHO, DTDRU, DTDRV, 
DTDRW, DTDET 

IBASE, ISTEP 


IBC, FBC 


IBOUND 

IEQ 

* IHSTAG 
IMIN, IMAX 
ISWEEP 

IV 

JI 

* NOUT 

NR, NRU, NRV, NRW, NET 

P, T 
RGAS 

RHO, U, V, W 


Specific heats c p and c, at time level rt. 

Computational grid spacing in sweep direction. 

Derivatives dTjdp, dTjd(pu), dTjd(pv), dTjd(pw), and cT\dEj. 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(I,J), where I runs from 
1 to A),, corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Flag for constant stagnation enthalpy option. 

Mi nimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the "vectorized" direction, 4- 

Inverse Jacobian of the nonorthogonal grid transformation, J ~ '. 
Unit number for standard output. 

Array indices associated with the dependent variables p, pu, pv, 
pw, and Et- 

Static pressure p and temperature T at time level n. 

Gas constant R. 

Static density p, and velocities u, v, and w, at time level n. 


Output 

A, B, C Coefficient submatrices A, B, and C at boundary IBOUND (row 

IEQ only). 

S Source term subvector S at boundary IBOUND (element IEQ 

only). 


Description 

Subroutine BCTEMP computes coefficients and source terms for temperature boundary conditions. 
The linearized equations for the various general types of boundary conditions are developed in Section 6.0 


98 4.0 Proteus Subprograms: BCTEMP 


Proteus 3-D Programmer's Reference 








of Volume 1. The following sections apply these generalized equations to the particular temperature 
boundary' conditions in Proteus . u 

No Change^ From Initial Conditions, A7~ = 0 


Applying equation (6.3) of Volume 1, and noting that dg/dQ = Jdgjd Q, we get simply 


Aj. k 


+ 4(A) + 4(A) + 4(A) + -S 

dp p d(pu) KF ' d(pv) KF d(pw) ^ dE 


dT . A 1 

T . " 


The derivatives dTjdp, dTjd{pu), etc., depend on the equation of state. They are defined for a perfect gas 
in Section 4.3 of Volume 1. 

Specified Static Temperature , T ~f 

Applying equation (6.5) of Volume 1, 




5p + d(pu) Hpu) + dfpv) A{pv) + d(pw) 


* / A \ i 3T a r 1 + 1 

A(pw) + A£ r —fij.k ~ h.j, k 


Specified Two- Point Temperature Gradient in Coordinate Direction, dTjd4> —f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary , and using two-point one-sided differencing, 


/ r ii 

- y W.*L dp 

2J.*[' 


* + agr ^ + w* + a^j- A(pAw) + w ■ ^ 


WuA' + Tw,*-^,* 

At the £ = 1 boundary, 


•J 

■J 

-Jo f , 


+ J HI. 


r f iL 

N\J>k dp 




d(pu) ' 5(pv) 7 d(pw) 

(iCt+^-i j.k-^j.k 

Analogous equations can easily be written for the rj and £ boundaries. 

Specified^ Three- Point Temperature GradierU in Coordinate Direction, dT[d f> = [ 


-J . 

,y, 

r a "I 71 
r-A£ r 
^ —1 v. / 


Applying equation (6.8) of Volume 1 at the % = 0 boundary, and using three-point one-sided differenc- 


ing, 


11 In the following description, for the first and second ADI sweeps the dependent variable should have the superscript 
* and **, respectively, representing the intermediate solution, and for the third ADI sweep it should have the 
superscript n , representing the final solution. For simplicity, however, only the superscript n is used. The super- 
scripts on all other variables are correct as written. 
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^l,j, k 

+ 4/ 2 J,k\%- 


Y~Ap+-^~ A(pu) + #- AC* + A(/w) + J1 AE t 

dp d{pu) d{pv) d(pw) oE T 


■]" 

J i,yj 


-iH 

+ -S7TS- A 0> w ) + 3^ A ^ v > + Sw HpW) + TEP AEt \ 2 . k 


d{pu) 


] El 

= 

3,j,k 


d{pu) xr "' ' d(pv) Krw ' d(pw) 

+ 3 r xJik - 47? Jt * + 7? >y> * 

At the | = 1 boundary, 


-^V, - 2J, k £ 

— 4 ^1 " X >J> k £ ~dp A^ ' g(p„) 
W» * £ 


^ a£ + #- A (p A W ) + ^3L A(pv) + A(ptv) + A £ 7 

3? K 3(pu) v ' 5(pv) 3(pw) 3£ r 


] 


«i-2 


-gA]" _ 1JL1 


+ 3/v. / fr I 4^- Ap + -44r a (p u ) + ~S~: a (p v ) + JL* A (^ w ) + ~§eP a ^t 

T -j A 




5 P • d(pu) “ vr ~' ' aG»v) “ vr / • d(pw) 

2(A J,‘* - 7^ _ 2>y> * + 47^ _ * - 37^.* 

Analogous equations can easily be written for the r\ and C boundaries. 

Specified Two- Point Temperature Gradient in Normal Direction, VT -n = f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 


+ -r— - A(A) + -2Z- A(pv) + -p— A(pw) + M- A E 
d(pu) d(pv) d(pw) oE r 


, T dT a a 

, , r dr . A 

2,2,i [_ 5p p ' d(pu) “ v " v ' d(pv) 

A(f r „ + 1 (fax + {yiy + * 


a A PT A A 

+ -4-t - A(pw) + 77777 A(pv) + 777 ^ A(pw) + -^- A£ r 


d(pw) 


E r ] 

T ^ 


m u,k 


, T , 

VW.* Vu.* 


. ^t' 77 opT? 

+ 7 7 2j, it 


where 


m 


— V ^JC 2 + + ^2 


and <5, and <5 S - are the centered difference operators presented in Section 5.0 of Volume 1. At the £ — 1 
boundary, 
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p + i 

^rp ,y, * _ 


At 

"*JV„ 


(^x+ $/!> + Z&^NiJ.k „ (^x + + £z^),V]J, k_ , T n 

°ti‘N\,j, k ~ m N x ,}, k * N i >J> k 


m N x ,j,k 


+ '^N l -\,j,k~ TN u j,k 


Analogous equations can easily be written for the r\ and £ boundaries. 

Specified Three- Point Temperature Gradient in Normal Direction , V7~-n =/ 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 


encing, 


- 37 j Jt k [ A2 + AM + -g^ a (A) + + dT 


A(p«) + 


3(pv) 

dT 
d( P v) 

ar ,a , dT a/ a , , ar 

dp P + d(p«) (PU) 5(pv) 


d( P u) 

st a a , ar 

dp Ap + a(pu) 


>A£ f „ + 1 (ZxVx + Zy*ly + Ztfz)l,j ± k 

UTL /u - t ' 


A (pV 


A(pv) + 


a(pw) 

ar 

a(pw) 

ar 


A(pw) + 


A(pw) + 


ar 

ar 

ar r 

ar 


-in 

r a I 

“ A£r J 

7 J t k 

I 


A 

A E- 


A£ 


2,7* 

71 


_2A£ 
m 


™\,j,k 

+ iT \,j,k ~ 4T 2J, k + T^J.k 


Vw.*- 


a(pw) ~ vr/ ' ar r 

<«x+*yC, + «x)w.* 


T 

J 3J,* 


777 


U.* 




where 

m=*JJ] r + ~t) + J} 

and a, and <5 { are the centered difference operators presented in Section 5.0 of Volume 1. At the £ = 1 
boundary, 


j 

• / AT, - 2,y, * [^ dp 

at r st 

- 4 -v 1 -i,/,*L dp 

^, k [f 

A l \,n + 1 

\.J.k 


A a dT a/ a , 
A P + ~ a (p w ) 




d{pu) 

A(pu) + -p— A(pv) + 07 A(pw) + A£ 

d{pu) d(pv) S(pw) dE T 


. r)T A /5T A 

A P + a/.. a" A (p u ) + I7T7T A (P V ) + 


S(pu) 


a(pv) 


a(pw) 

ar 

a(pw) 


A 37" a 

AM + J-AE; 


I 

■i 

-] 


Ni-2,j.k 


Ni-u.k 

n 


m 

m N, 


i^x^x 4 £y*ly “b %z*Iz)n i,j, k 


m N h j, k 




(tyfx + t y t y + Z£z)n x J, k 


m N^j,k 


Wlj.k 


r~pTl 

~ I \r 


■ + 4r" 


37?, 


! AT, - 2 J, * t *»' Af, - 1 J, k ~ NiJ, k 
Analogous equations can easily be written for the t] and £ boundaries. 


Proteus 3-D Programmer's Reference 


4.0 Proteus Subprograms: BCTEMP 101 


Unear Extrapolation of Static Temperature 

Applying equation (6.14) of Volume 1 at the £ = 0 boundary', 


J U. 


f dT 

**L dp 

-2 

r m. 

J ’*|_ dp 


+ ^7~T A(A) + A(p A v) + A(pw) + -jZ- A£ r ] ^ ^ 


d(pu) 


d(pw) 

dT a a , 57 A , 4 „ , dT A/ A ..s . dT 

— — A p H — — — — A {pu) H — rr — — A(pv) 4- —rz r 
dp d{pu) d(pv) d(pw) 


A(p A w) + J-A£ ; 


A 

E r 


AT A AT A AT A dT A 
A P + “57777 A (P W ) + “5777T A ^ v ) + 757777 A ^ w ) + A£ ^ 


3 -7* I ' d{pu) ~ vr "' ; d(pv) 

7 71 . nrfl 

1 ,j,k+ 11 2 ,j,k~ 7 3 ,j,k 

At the £ = 1 boundary, 


5(pw) 


2 .J.k 

n 

3,7, * 


dT 4 ,* A . dT A , A . A . dT T 

j AT 


v - 1 j. * [ • % 42 + -&• ^ + 4o;v) _, Ki _ 2Jtk 


+ J lf,.J.k I " 57 " “P ^ “vp-; ^ 1 a(p W ) 

7 7 ? , ^ ■ t ->77 onTT 

tf 1 -2,j,k + ** N x -\,],k~ 1 NU,k 

Analogous equations can easily be written for the >j and C boundaries. 
Vo Change From Initial Conditions for Total Temperature ,.A7 r = 0 
The total temperature is defined as 


-= r ( 1 +J Hr M2 ) 


Applying equation (6.3) of Volume 1, we get 


J, , 


ij.k 


dT-j 

dp 


dT 


dT 


dTn 


dTr 


42 + wk A ^ + ^> + + w AEr 


= -.0 


k 


where 
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d T r 

dp 

dT (. 

dp \ 

dT r 

dT 

d( P u) 

d( P u) 

dT r 

dT 

3(pv) 

d(pv) 

d T r 

dT 

d(pw) 

d(pw) 

dT T 

dT I 


1 + 


r - 


2 

(■+4-4 

( l+r r-4 

('+44 




. dM 2 


dEj' dE'p 


dp 

7 - 1 ~ aw 2 


2 ao»«) 

y - 1 ^ aA / 2 


2 d(pv) 

y-l T a.W 2 


d(p w ) 


7 - 1 T d\f 

2 SEt 


The Mach number is defined by 


, ,2 w 2 + v 2 + w 2 (p4 + (p v ) Z + (p4 
" * — — = 


,RpT 


The derivatives dM 2 jdp, etc., can then be derived as 


dM 2 

dp 

= -a/ 2 ( 

( 2 

1 dT 

T dp 

dM 2 

_ 2w 

M 2 

dT 

d(pu) 

“ yp 

T 

d(pu) 

dM 2 

2v 

M 2 

dT 

d(pv) 

yp 

T 

d(pv) 

dM 2 

— 

M 2 

dT 

d(pw) 

” yp 

T 

d{pw) 


8M 2 


A/ 2 dT 

dEj T dEj 

Specified Total Temperature, T t = f 

Applying equation (6.5) of Volume 1, we get 


J U. k 


dT 


T .A 


dT-r 


-^Ap + ~.. , 

dp d(pu) 


A{pu) + 


8T t 


A (pv) + 


8T t 

d(pw) 


dT j' a 


A(pw) + -^A£ r 


i',y, k 


fuy- T u,k( l + 1 ~T~ m2 ) 

' / ij , k 


where 7> , 37>/5p, etc., are defined above as part of the description of the AT t = 0 boundary condition. 

Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Section 
2.3. 
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2. An error message is generated and execution is stopped if a non-existent temperature boundary condi- 
tion is specified. 
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Subroutine BCUVEL (IBC, FBC, IEQ.IMIN.IMAX, IBOUND) 

Called by 

CaUs 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute x - velocity boundary conditions. 

Input 



DEL 


Computational grid spacing in sweep direction. 


IBASE, ISTEP Base index and multiplication factor used in computing one- 

dimensional index for three-dimensional array. 

IBC, FBC Mean flow boundary condition types and values for current sweep 

direction, specified as IBC(I,J) and F BC(I,J), where I runs from 
1 to corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

IBOUND Flag specifying boundary; 1 for lower boundary, 2 for upper 

boundary. 

IEQ Boundary condition equation number. 

I MIN, I MAX Minimum and maximum indices in the sweep direction. 


ISWEEP 

IV 

JI 

* NOUT 
NR, NRU 
RHO, U 


Current ADI sweep number. 

Index in the "vectorized" direction, i v . 

Inverse Jacobian of the nonorthogonal grid transformation, J~ l . 
Unit number for standard output. 

Array indices associated with the dependent variables p and pu. 
Static density p and velocity u at time level n. 


Output 

A Q Coefficient submatrices A, B, and C at boundary IBOUND (row 

IEQ only). 

S Source term sub vector S at boundary IBOUND (element IEQ 

only). 


Description 

Subroutine BCUVEL computes coefficients and source terms for ^-velocity boundary conditions. The 
linearized equations for the various general types of boundary conditions are developed in Section 6.0 of 
Volume 1. The following sections apply these generalized equations to the particular x- velocity boundary 
conditions in Proteus. 12 


12 In the following description, for the first and second ADI sweeps the dependent variable should have the superscript 
* and **, respectively, representing the intermediate solution, and for the third ADI sweep it should have the 
superscript n, representing the final solution. For simplicity, however, only the superscript n is used. The super- 
scripts on all other variables are correct as written. 
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No Change From Initial Conditions, Ak = 0 


Applying equation (6.3) of Volume 1, and noting that dgldQ = JdgjdQ, we get simply 

J u,k[-f** + T A{ ? u) ] n . =0 


Specified x-Velocity, u~ f 

Applying equation (6.5) of Volume 1, 


Ju, J - f a P + f a (A)T = 4V* 1 - <j, 

L J f > y, k 


Specified Two- Point x-Velocity Gradient in Coordinate Direction , duld<j> — f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 



(A^,S + <y, k~4j,k 

At the £ = 1 boundary, 



Analogous equations can easily be written for the rj and £ boundaries. 

Specified Three- Point x-Velocity Gradient in Coordinate Direction, dujd<t> = f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 
ing, 

- 3y i J. k [ - y Ap + y A(p«)] ^ ^ + 4 J 2 J * [ - ^ A p + -j r A(pu) ^ 

— J, ft 1” - Ap + 4* A(pw)l = 2(A £)f\,j^k + 3u ” j, k ~ 4u 2 j, k + u 3 J, k 

L J 3 ,j,k 

At the £ — 1 boundary, 



Analogous equations can easily be written for the v\ and £ boundaries. 
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Specified Two- Point x- Velocity Gradient in Normal Direction, Vu-n =/ 

Applying equation (6.12a) of Volume 1 at the { - 0 boundary, and using two-point one-sided differ- 
encing, 


-Aj, k [-f*p + T a (A)] ijk + J 2 j,k[~f*p + T a (A)] 
A£ [ fH + \ 

m \ J,k 


i^x^x "b yy’Ty *b ^ 2 * 1 ?) l,y, k 


r n 
°n u 1 J, k 


2J, k 

(tex+ZyZy + UJl.j.k 

m \ ,j, k 


c n 

<5? u i j.k 


+ u \ ,j,k~ u 2J,k 


where 

m = + Zy + T} 

and <5, and <5 { are the centered difference operators presented in Section 5.0 of Volume 1 . At the £ = 1 
boundary, 


-•/v 1 -l,y,/ t f - 7' A £ + p A(P«)1 + ,j, k [ p Ap+ P 

L J lf l -\,j,k L 


a\pu) 


'J 


'ViJ.k 


m N x ,j, k 


/•n + 1 
JN h j,k~ 


(Zx’lx + ZyVy + ^ 2 ) AT, J, k z n 

yf%Tk v*w. k 


(Zx^x + Zyty + z)N u j , k n 

— W J. * 


+ %, - I ,y, k ~ U N l ,j,k 

Analogous equations can easily be written for the *7 and C boundaries. 

Specified^ Three- Point x-Velocitv Gradieru in Normal Direction, Vu-n = f 

Applying equation (6.12a) of Volume 1 at the f = 0 boundary, and using three-point one-sided differ- 
encing, 


,j, k 

~ /j.y, k 

2M 

m \,j, k 


r — Ap + -4- aAT + 4J 2J> J-f Ap+^- A(p«)] 

L ^ r J \,j,k L • J 2,y, k 

[ r n+\ (^xVx + Zyly + ^ 2 ) 1 , 7 , *: £ n + 'M’r + 

/l J, *• k m \ J. k 


c n 

Vi.y, 


Jc 


+ 3u uy, k - 4u 2,j, k + u 3,j, k 


where 

and <5, and <5 ( are the centered difference operators presented in Section 5.0 of Volume 1. At the £ = 1 
boundary, 
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^V, - 2,y, k\-~J-^P+ p A (p“)l 4 ^Vi - 1 J, A [ p A P+ p 

1 L J iV, -2,y,A L 


ip + 7T 4(/>u)] 


J AW,* 

2Ac r , 4.1 (’x*7x + £>*Iy + £z r h)s ] J, k n (?x^x + + ^zQ/v’jJ, k £ „ 

^}J |/w,3. * mTTl V*. J. k mZ~7l k 


m S\,j, k 


m N„j,k m N„j.k 

- w.v, _ 2 j, k + Au l\ - 1 a - 3 “<v, j, a 
A nalogous equations can easily be written for the y\ and £ boundaries. 

Linear Extrapolation of x- Velocity 

Applying equation (6.14) of Volume 1 at the £ = 0 boundary, 

A J, * [ - f 4? + -A 4(A)]" _ t - 2 /jj, * [ - f 42 + i- 4(A)]”^ t 

+ Aj.a [ + 7" 4(p»)] ^ = - p";. p+ ^j.k- u 2.j.k 

At the £ = 1 boundary, 

At, - 2 ,;, a [ - 7 T + T A(pw) ] ~ - ».** [ Ap + T A(pM) ] v . . . 

+ ^V, y, * F ” 7T + T A ^“)l = ” U AT, - 2 ,;, k + 2 %j - i,y, a ~ w aw, * 

Analogous equations can easily be written for the v\ and £ boundaries. 

Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Section 
2.3. 

2. An error message is generated and execution is stopped if a non-existent x-velocity boundary condition 
is specified. 
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Subroutine BCVN (J1,J2,J3,VN) 

Called by 

Calls 

Purpose 

BCNVEL 


Compute velocity normal to a surface. 


Metric coefficients rj xi r\ y , and rj 2 . 

Current ADI sweep number. 

Grid indices /, j, and /c, in the <£, >/, and £ directions. 
Velocities u, v, and w, at time level n. 

Metric coefficients and £ z . 

Metric coefficients and £ z . 


Velocity normal to sweep direction surface. 

Description 

Subroutine BCVN computes the velocity normal to a surface in the current sweep direction. The 
normal velocity is defined as 

V n =V.n 

where n is the unit vector normal to the surface. For a £ surface, 

1 

71 ~ | V £| “ m *x l + m ^ m ^2 K 

where 

Therefore, for a £ surface, 

Note that the unit vector n is in the direction of increasing <*. Therefore V n is positive in the direction of 
increasing 

Similarly, for an boundary, 

V n=4r( t 1x u + *1y v + *l2 w ) 

where 

/ 2 , rr r 

m = \J*lx + *!y + >7z 

and F„ is positive in the direction of increasing r\. 


ETAX, ETAY, ETAZ 

ISWEEP 

Jl, J2, J3 

U, V, W 

XIX, XIY, XIZ 

ZETAX, ZETAY, ZETAZ 

Output 

VN 
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And, for a £ boundary, 


^=^(£x" + C,v + C,w) 


where 

"7 = VC * 2 + Vy, 2 + C 2 2 

and F„ is positive in the direction of increasing £. 
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Subroutine BCWEL (IBC, FBC, IEQ, IMIN, IMAX, IBOUND) 

Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute y-velocity boundary conditions. 

Input 



DEL 


Computational grid spacing in sweep direction. 


IBASE, ISTEP Base index and multiplication factor used in computing one- 

dimensional index for three-dimensional array. 


IBC, FBC 


IBOUND 


IEQ 

IMIN, IMAX 
ISWEEP 
IV 
JI 

* NOUT 

NR, NRU, NRV 

RHO, U, V 


Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(I,J), where I runs from 
1 to N< qi corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the "vectorized" direction, U 

Inverse Jacobian of the nonorthogonal grid transformation, J~ 
Unit number for standard output. 

Array indices associated with the dependent variables p, pw, and 
pv. 

Static density p, and velocities u and v, at time level n . 


Output 

A, B, C Coefficient submatrices A, B, and C at boundary IBOUND (row 

, IEQ only). 

S Source term subvector S at boundary IBOUND (element IEQ 

only). 


Description 

Subroutine BCWEL computes coefficients and source terms for ^-velocity boundary conditions. The 
linearized equations for the various general types of boundary conditions are developed in Section 6.0 of 
Volume 1 . The following sections apply these generalized equations to the particular j-velocity boundary 
conditions in ProteusP 


13 In the following description, for the first and second ADI sweeps the dependent variable should have the superscript 
* and **, respectively, representing the intermediate solution, and for the third ADI sweep it should have the 
superscript n, representing the final solution. For simplicity, however, only the superscript n is used. The super- 
scripts on all other variables are correct as written. 
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No Change From Initial Conditions , Av = 0 

A 

Applying equation (6.3) of Volume 1, and noting that dgldQ = JdgjdQ, we get simply 

1 A 1" 


J u,k\~T a p + t a ^ v) ] =0 


Specified y-Velocity, v ~ f 

Applying equation (6.5) of Volume 1, 


j u. * r - f + t 4 a]" - y u. * 

Specified Two- Point y- Velocity Gradient in Coordinate Direction, dvld4> = f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 

- J u.k[-jr A > + T A ^ v >]" . k + y w\ * [ - jr $ + f A( ^ v) ] 2 . k = 


+ v \,j,k~ “2,7, k 


At the £ = 1 boundary, 


J 


N x -\J,k\ 


\-J r A? + ±A{pv)] +y A , - A T--^-Ap + -^-A(pv)l 

L p H J Ar,-i ,j,k *- P J ^J,k 

( A £i fsNk + V A' 1 - 1,7, k ~ v V,,7, * 

Analogous equation can easily be written for the tj and £ boundaries. 

Specified^ Three- Point y- Velocity Gradient ip Coordinate Direction, dvld<i> = f 


Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 


ing, 


- 3/i ,;, * [ - f + f A( ^ v) ]” & + 4/ 2,y, k[~jr^ + T A(A)]* 

- h,j , k[~f*P + jr A(PV)]" ^ = 2{MYxj,k + 3vr,;. * - Kj, k + v 3,j, k 


At the £ = 1 boundary, 

J W l -2J,k\~T A ^ + f A( ' pV A ~ AJn ' - 1 . 7 . * [ “ A ^ + 7 “ A (^ V )] 

L -"A) — 2,7, k L -‘A! -1,7, 

7 \nalogous equations can easily be written for the rj and £ boundaries. 


AW-* 
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Specified Two- Point y- Velocity Gradient in Normal Direction, Vv. n =/ 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 


- A J. * [ ' - + T ' T + T 4 *] 2 y t = 

A£ .7! + 1 

m \ J.k \/ lJ ' k 


(*» jc *lx "f "f" j, k 


VUfe- 






+ v l,j,k~ v 2,j,k 


where 

m=-JU~+ ty + ^? 2 

and 5, and <5 C are the centered difference operators presented in Section 5.0 of Volume 1. At the £ = 1 
boundary. 


- Jst - 1 j. * [ “ T ^ + ~p A(pv) ] + Jn " j ’ k \_-p A ? + P A(pv) ] „ , k 

1 L K K L -'AW’* 

A£ r .71 + 1 (Zxlx + £/!>> + Z&ziNyJ, k £ _ „ ( £x£x + Zy£y + k * ^ „ 

Analogous equations can easily be written for the >/ and £ boundaries. 

Specified Three- Point y- Velocit v Gradient in Normal Direction, Vv - n =/ 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing, 



2A£ 


f n + 1 
/l,y,* _ 


"1” ^y^y d” £z*lz)\,j,k 
m \,J.k 


C « 

^r) V i ,/, k 


(«x+«/,+ {|Ci)u* 
m u,t 


<5^v 


n 

i.j.k 


+ Kj, k ~ 4v 2J. * + v ”,y. * 


where 

m=yf/Zx + ly + J} 

and <5, and <5 { are the centered difference operators presented in Section 5.0 of Volume 1. At the £ = 1 
boundary, 
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/v, - 2 J,k 

[-T 

A P 

1 A 

+ ~p~ A(pv) 

— 4 /v, - l ,j,k 1 

■_i 42+ ± 4( ; v) r 





jVj — 2, y, k 1 


+ ^N x ,j,k 

[-f 

A p 

+ -jr a (pv) 

n 




— J 

N\,j,k 


2A% 

f/i + 1 


(*x*1x + Zyly + Z z Vz)n x J, k c „ 

itex + tyty+UMj.* s ..n ’ 

k 


k~' 

m N x J, k 

m N u j,k 


n , A n ^ n 

- v ,V, - 2 ,J. k + 4 % - 1 ,J, k - 3v ^,y, k 


Analogous equations can easily be written for the y\ and £ boundaries. 
Linear Extrapolation of y- Velocity 

Applying equation (6.14) of Volume 1 at the £ = 0 boundary, 



At the £ = 1 boundary, 



Analogous equations can easily be written for the rj and £ boundaries. 

Specified Flow Angie, tan~ l (v/u) = f 4 

This boundary condition can be rewritten as 

where /is the specified flow angle. Multiplying by pu , 

(tan f)pu— pv = 0 

Applying equation (6.5) of Volume 1 to the above equation, we get 

J iJ, k [( tan/)" y!* A (P u )lj, k ~ A (P v tj , fc] = - ( tan /)”y . k + ( P v )"j , k 

Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Section 

2.3. 

2. An error message is generated and execution is stopped if a non-existent y- velocity boundary condition 
is specified. 
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Subroutine BCV1 (Jl J2,J3,VC1) 


Called by 

Calls 

Purpose 


BC1VEL 


Compute ^ -velocity. 



Input 

ETAX, ETAY, ETAZ 
Jl, J2, J3 
U, V, W 
XIX, XIY, XIZ 
ZETAX, ZETAY, ZETAZ 

Output 

VC1 


Metric coefficients rj x , rj y , and rj 2 . 

Grid indices /, j, and k, in the tj, and £ directions. 
Velocities w, v, and w, at time level n. 

Metric coefficients and 

Metric coefficients £„ and £z* 

Velocity in the % direction. 


Description 

Subroutine BCV1 computes the velocity in the £ direction. The f -velocity is defined as 



where e { is the unit vector in the c direction, given by, 

H = ( x i 1 +V +Z ^) 

where 

/~~2 2 T 

m=yjX£ + -I- 

Therefore, 

^ + z t w ) 
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Subroutine BCV2 (J1,J2,J3,VC2) 


Called by 

Calls 

Purpose 

BC2VEL 


Compute ^-velocity. 


Input 

ETAX, ETAY, ETAZ 

Jl, J2, J3 

U, V, W 

XIX, XIY, XIZ 

ZETAX, ZETAY, ZETAZ 


Metric coefficients rj x , rf yi and r\ 2 . 

Grid indices i,j, and k , in the £, rj, and £ directions. 
Velocities u , v, and w, at time level n. 

Metric coefficients £*, and 
Metric coefficients £*, £ yy and £ z . 


Output 

VC2 Velocity in the y\ direction. 

Description 

Subroutine BCV2 computes the velocity in the r\ direction. The ^-velocity is defined as 

V = V - ~e 
n v 

where e n is the unit vector in the rj direction, given by, 

r t . .. t . . T\ 


where 


Therefore, 


e v m { x rj z + -V + z n k ) 


/ 2 2 2 

rn = sjx Yl +y n + z Y} 


< J V # + V + 
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Subroutine BCV3 (Jl r F2,J3,VC3) 

Called by 

Calls 

Purpose 

BC3VEL 


Compute C -velocity. 


Input 

ETAX, ETAY, ETAZ 
Jl, J2, J3 
U, V, w 
XIX, XIY, XIZ 
ZETAX, ZETAY, ZETAZ 

Output 

VC3 


Metric coefficients rj x , t] y , and tj z . 

Grid indices i,j, and k, in the £., rj, and C directions. 
Velocities u, v, and w, at time level n. 

Metric coefficients £, x , £ y , and 
Metric coefficients » and C*- 


Velocity in the £ direction. 


Description 

Subroutine BCV3 computes the velocity in the £ direction. The £ -velocity is defined as 


K c =F.e c 


where e c is the unit vector in the £ direction, given by, 

+W + z c k ) 


where 

m = +y\ + ^ 

Therefore, 
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Subroutine BCWVEL (IBC,FBC,IEQ,IMIN,IMAX,IBOUND) 


Called by 

Calls 

Purpose 

BCGEN 

BCGRAD 

BCMET 

Compute z - velocity boundary 7 conditions. 


Input 


DEL 

IBASE, ISTEP 


IBC, FBC 


IBOUND 

IEQ 

IMIN, IMAX 
ISWEEP 
IV 
JI 

* NOUT 

NR, NRU, NRW 



S 


Computational grid spacing in sweep direction. 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as 160(14) and FBC(I,J) } where I runs from 
1 to N eqi corresponding to the N „ conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the 'Vectorized* direction, i. 

Inverse Jacobian of the nonorthogonal grid transformation, J~ K 
Unit number for standard output. 

Array indices associated with the dependent variables p, pu, and 

pw. 

Static density p, and velocities u and w, at time level n. 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary IBOUND (element IEQ 
only). 


Description 


Subroutine BCWVEL computes coefficients and source terms for z - velocity boundary conditions. The 
linearized equations for the various general types of boundary conditions are developed in Section 6.0 of 
Volume 1. The following sections apply these generalized equations to the particular z- velocity boundary 
conditions in Proteus}* 


14 In the following description, for the first and second ADI sweeps the dependent variable should have the superscript 
* and **, respectively, representing the intermediate solution, and for the third ADI sweep it should have the 
superscript n, representing the final solution. For simplicity, however, only the superscript n is used. The super- 
scripts on all other variables are correct as written. 
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No Change From / nitial Conditions, Aw = 0 

Applying equation (6.3) of Volume 1, and noting that dgjdQ = Jdg/dQ, we get simply 

Aj.k\-f*p + T** w) T =0 


Specified z- Velocity, w - f 

Applying equation (6.5) of Volume 1, 


r T w a a , 1 * fY* f n + 1 n 

J i,j, k [_ - ~p + ~p A(PW0J ^ =f iJt k ~ w i,j, k 

Specified Two- Point z- Velocity GradierU in Coordinate Direction , dwjd^ = f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 

- J \j,k\_--y A P+-jr A (P w )~\' k + Aj,k\_-^ A P + fr A (p w '>Y j ; k = 


(A£)/i jjt + w \,j, k — w 2,j, k 


At the £ = 1 boundary, 


L r lj./t L J AfiJ.* 

(A£i//vr, j, * + - 1 j, * — w N 1 ,j, k 

Analogous equations can easily be written for the r\ and £ boundaries. 

Specified Three-Point z- Velocity Gradient in Coordinate Direction , dw\d<j> = f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided different 

- 37] Jt k [ - f At + j- A(pw)]” ^ + 47 2 y k [-ftf + ± A(pw)]” 
- J 3jk\-^*P+7T AfoVT = 2(M]fx,Lk + K * k - 4*2 j. k + *2j, k 

’ ’ L J 3J,i: 


mg. 


At the £ = 1 boundary, 


^-2.4- p + p A(p w )1 p Ap+ p AO 5 *')] 

L J y,-2 ,j, k L ^Ni-hj.k 

+ 37a* y,* |"--7-Ap +4- A(pw)l =2(MVN i j\- w N l -2J, k + 4w Ni-\,j,k-' iw N 1 ,j,k 

L -J ,V. k 


■/V, ,y, * 

Analogous equations can easily be written for the r\ and £ boundaries. 
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Specified Two-Point z-Velocity Gradient in Normal Direction , Vw «/2 = f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 


- J ]J,k\_--J- A P+y A (P w )] i k +J 2J,k\_-^ A P+y A (P w f\ 2 j k ~ 


A« 


m 


UJ,k 


fTl 4* 1 

J\ J t k ” 


+ £/ly + Z&Jxj.k 


m 


hj.k 


S rf W \J,k~' 


(£/x + + Z£z) 1 J, * 




u.* 


J. k 


n n 

+ w l ,j,k~ w 2,j,k 


where 

WJ = yj + ^_y 2 + £,2 

and <5, and (5 C are the centered difference operators presented in Section 5.0 of Volume 1. At the t, — 1 
boundary, 


J N 1 -\j,k\~T A ^ + T A ^ w) '] +J N 1 j,k[--y A P + T A (^ w )] “ 

L J V, -1 ,J,k L - > Ni,J,k 




m Ny,j,k 


, dxVx + + ^z’2z)n\J, k „ (i£x+ £yty + ££ 2)^,1 k „ 

nkn — \<J.K ^T k 


m N x ,j, k 
+ w N x -\,j,k~ w N v j,k 

Analogous equations can easily be written for the r\ and £ boundaries. 

Specified Three-Point z- Velocity Gradient in Normal Direction, Vw.n — f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing, 


- 3Jl,j,k [ - 7 r A p + -y A(pw)J ^ + 4/ 2> y,*£ — p Ap+ p A(pw)J^ ^ 
“ J 3,j, k [ ~ 7T A P + 7* A(pw)] 


J 3,y, k 


m 

m \ ,j, k 


rYX + 1 

J\ J,k ~ 


(%x*lx d" ^y*iy d” £z*?z)l,y, k 


m \ ,j, k 

+ J, k ~ 4w 2 ,y, k + w 3,j, k 


c n 


(^x + ^y+^zhj.k 


m 


1 J.k 




where 

m = Jt x 2 + Z, 2 + S2 2 

and <5, and <5 { are the centered difference operators presented in Section 5.0 of Volume 1. At the £ = 1 
boundary, 
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/at, -2 ,j,k 


n 

iV, - 2,j, k 

+ \,j,k 

[-ft# + ±uU_ 

n 

N\J, k 

2A£ 

vn . . . . 

mxT r. 


c „ + Zyty + Z£z)s\J, k s „ 

'fy^i J.k~ mZ f * d i w M l J,k 

— /v A ,y, /«: 1 "' n ly j,K *n >J> K 

- W ,V, - 2 J, k + 4w AT, - 1 ,j, k - iw N u j, k 
Analogous equations can easily be written for the q and £ boundaries. 

Linear Extrapolation of z- Velocity 

Applying equation (6.14) of Volume 1 at the £ = 0 boundary, 

A j,k\_--f A P + T A( ^] ijk ~ ^ J. * [ “ T ^ + T A(pw) ] 2 . k 

+ A,j,k [ A P + 7' A (P W )] ^ - w lJ,k + 2w 2J,k~ w 3J,k 

At the £ = 1 boundary, 

J Nx -7 j,k\-T A ? + T A(j > w) ] -^ 1 -u,*[-T" A ^ + -r A ^ w ')] 

1 L ^ r J ^-2 ,j,k L - J /V 1 -l,./,fc 

a n i ^ 

- -7T Ap + -p- A(pw) = - Wtf _ 2 J' k + 2 wjjr _ 1 J' k - k 

J A r x J,k 

Analogous equations can easily be written for the rj and £ boundaries. 

Specified Flow Angle, tan~ l (wlu) = f 

This boundary condition can be rewritten as 


^ ^any- 

where /is the specified flow angle. Multiplying by pu, 

(tan f)pu — pw = 0 

Applying equation (6.5) of Volume 1 to the above equation, we get 

A,j, k [( tonf)llk A (P u )lj, k ~ A (P w )lj, k] = _ ( tan /)iJ, k + ( P w )lj , k 


Remarks 

1. This subroutine uses one -dimensional addressing of three-dimensional arrays, as described in Section 
2.3. 

2. An error message is generated and execution is stopped if a non-existent z- velocity boundaiy condition 
is specified. 
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Subroutine BC1VEL (IBC, FBC, IEQ, IMIN, IMAX, IBOUND) 

Called by 

CaHs 

Purpose 

BCGEN 

BCIMET 

BCMET 

BCV1 

Compute velocity boundary conditions. 


Input 


DEL 

DXI, DETA, DZETA 
IBASE, ISTEP 


IBC, FBC 


IBOUND 


IEQ 

IMIN, IMAX 
IS WEEP 
IV 

II, 12, 13 
JI 

* NOUT 

NR, NRU, NRV, NRW 

RHO, U, V, W 

Output 

A, B, C 

S 


Computational grid spacing in sweep direction. 

Computational grid spacing A Arj, and AC. 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(I,J), where I runs from 
1 to N eq , corresponding to the N eq conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the "vectorized" direction, i v . 

Grid indices /, y , and k , in the £> >/, and C directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J~ l . 
Unit number for standard output. 

Array indices associated with the dependent variables p, pw, pv, 
and pw. 

Static density p, and velocities u, v, and w, at time level n. 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary IBOUND (element IEQ 
only). 


Description 

Subroutine BC1VEL computes coefficients and source terms for ^-velocity boundary conditions. The 
linearized equations for the various general types of boundary conditions are developed in Section 6.0 of 
Volume 1 . The following sections apply these generalized equations to the particular ^-direction velocity 
boundary conditions in Proteus. 15 


15 In the following description, for the first and second ADI sweeps the dependent variable should have the superscript 
* anc j ** y respectively, representing the intermediate solution, and for the third ADI sweep it should have the 
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Specified c,- Velocity, V f = [ 

The velocity in the q direction, V ( , is defined as 


v^v.7; 


where e { is the unit vector in the £ direction, given by, 

1 


H = ~k{ x i’ 1 +yiJ +z S) 


where 


m 




2 2 2 

x i+yt + z i 


Therefore, 

^=4-(^“ + ^ v + z 5 w > 

Applying equation (6.5) of Volume 1, the linearized boundary condition at a £ boundary becomes 
hi.k f x t u+y ( v + z f w 


i,j , k 
m iJ, k 


- ip + i 4M + 4 + J«1 -& - (Vf'gj, 

k 


Analogous equations can easily be written for the rj and £ boundaries. 

Specified T wo-Poinl l- Velocity Gradiera in Coordinate Direction, dV,ld<j> = f 

Applying equation (6.8) of Volume 1 at the f = 0 boundary, and using two-point one-sided differencing, 

X{U + y^v + ZjW 


+ 


y, , J. r XiU + yiV + zyw x ( A )>? a z> a ~l" 

[ p A P+ — A ^“) + — A (P V ) + — A (P W ) J 

ik r XiW+y.v + ZjW x { A Tf a z f A l” 

ryr L — 1 — p — — a p + ~ j~ + ~r A ^ v ) + A(pw) J = 


j^2 ■' 
m 2 




At the £ = 1 boundary, 

Jk 


pf \ — by, fc r 

"ty - 1 j, k |_ 

r 

*‘ v i»x* L 


y 

T?7 


■*{ W +J ; { V + 


x^u + y^v + z^w 


X* A A Zf A ""l” 

Ap 4- -y- A (pu) + -f A (pv) + -A- A(pw) + 


X* A Jf A A "l” 

Ap + -y- A(pw) + -y- A(pv) + — A(pw) = 


(MVtf+j'k + (^)aTi - 1 ,y, * ( V $N x ,j,k 

Analogous equations can easily be written for the >j and £ boundanes. 


superscript n, representing the final solution. For simplicity, however, only the superscript n is used. The super- 
scripts on all other variables are correct as written. 
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Three-Point c,- Velocity Gradient in Coordinate Direction , dVdd<f> = f 


Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differenc- 


ing, 


Aj\ k 

x^u + y^v + ZjW 

m \,j, k 

P 

H ,j, k 

X{U + y^v + z { w 

m 2J, k 

P 

H,J, k 

XgU + ygV + z^w 

m 3,j, k 

P 


A A y* A Ze A 

Ap + -j- A(pu) + — A(pv) + — A (pw) 


+ 


i J.k 

n 


A X l A A 2^ A “j 

Ap + -jj- A(pu) + — A(pv) + — A(pw) 

-*2,j,k 

T - 

-‘ij.k 


A A Zj 

Ap + -J- A (pw) + — A(pv) + — A(pw) 


2(A^ y ^ + Wfij.k- 4 ( V t)h,k + (V$ j, k 


At the £ = 1 boundary, 


J N l -2J,k ^W+^V + ZjW 

m N l — 2, j.k L" P 

J N x -\,],k r + 

4 %,-lj,* |_ P 

, J N X ,j,k r x i u +^{ v + z { w 

3 m tt»J.k L p 


Xe A y* A Zk A ~ I 

Ap + A (pw) + A(pv) + — A(pw) J 

A X f A y? A 2t A “1 

Ap + — A(pw) + — A(pv) + — A(pw) J 
A xp a y* a 2e a n 

Ap + -jr A(pa) + -£• A(pv) + -j- A(pw) J 


n 


AT, -2 J,* 


n 


N x ,J,k 


+ 


2(A^ + j\ - + 4(V^ _ - 3(K { )^ iJtJk 

Analogous equations can easily be written for the q and £ boundaries. 

Specified Two-Point ^-Velocity Gradient in Normal Direction , VV; • n — f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 


J ij.k r 

m \ j.k L 

J 2 1 h± r 

m 2,j, k |_ 


XjW + + z^w 

P 

+ ZjW 
p 


Xr A a Z^ A T 

Ap + -j- A (p«) + -f A (pv) + -f A (pw) + 

A A Jf A Z. A -j" 

Ap + -j- A(pu) + -jf A(pv) + -j- A (pw) 

-*2,y, * 


A£ + (trfx + Zy*ly + £7*72)1 J, * £ /T ^ ^ (^x + £y£>- + Z£z)\,j, k s /T , 

777 ^77 v K f'w.* 


and <5, and <5 { are the centered difference operators presented in Section 5.0 of Volume 1 . At the | = 1 
boundary, 
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m N x - \,j,k L 

w.* r 

w.* L 


Xj«+J7jV + ZjW 


"*yv, 

A£ 


x^u + y^v + ZjW 


. X {A Jf A A “l” 

Ap + -y- A(pu) + — A(pv) + — A(pw) 

. A y? A A I 

Ap + -jj- A(p«) + — A(pv) + — A(pw) | 


+ , (•= jc*Ijc + V*y + Z&£n x j, k £ /T/ (Wjc + £y»y + £/z)a-, j, * 

/. * 5%"77 V * 


m S\,j, k 


Wfaj.k 


+ ( - i j, k ~ ( ^{)a r lt j, k 

Analogous equations can easily be written for the r\ and £ boundaries. 

Specified Three- Point £- Velocity GradierU in Normal Direction W, ■ n = [ 

Applying equation (6.12a) of Volume 1 at the £, = 0 boundary, and using three-point one-sided differ- 
encing, 


^1 ,y, & 

x^u + y^v + z^w 

m \ ,j, k 

P 

J 2J, k 

r x^u+y^v + z^w 

” hj.k 

L 

J 3J, k 

r x^u + y^v + z^w 

m 3J,k 

L" 


2A£ 

m \j,k 


Ap + -j- A (pu) + A (pv) + 


A 

~ 


Z* A 1 

^r-A(pw)J 


+ 


w.* 

2,/,* 

■.n 


,-n + 1 (Z x Vx + Vb' + ^^1 J, * c t r \H 

Aj.k WT T V K {)i.y,*“ 


(Wx+^ + ^lJ.* 


n 


m 


hj,k 


tyvtf j,k 


r W$lj,k-WtKj.k + (rshj.k 


and 5 n and <5 C are the centered difference operators presented in Section 5.0 of Volume 1. At the £ — 1 
boundary, 


JCjtt +J>{V + ZjW 


m N i — 2,j,k \ 

L p 

- 1 ,j,k 


m ,V l - 1 J, k 

p 

3 V-‘ 1 

r X|U + y^v + z^w 


A A A Z* A “I 

Ap + -j— A(pw) + — A(pv) + — A(pw) J 


A A A Ze 

Ap + A (pu) + A (pv) + — A(pw) 


at, - 2 j, * 

,7? 


»] 


+ 




2A£ 

™yv, 


a^ r, n+ i 

wTL //V i ’ 7 ’- a ~ 


A^ + - 


A A Ze A 

A(p W ) + -^A(pv)+-^A(pw) 


N\J,k 


m N ly j,k 


, (V ^ + ^2)N u j,k „ 

Wuj.k m N i ,j,k f' V^\,j,k 


- (^ft, - !,/, * + << - u * - 30 ^AT, J. * 

Analogous equations can easily be written for the y\ and £ boundaries. 
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Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in S.ction 
2.3. 

2. An error message is generated and execution is stopped if a non-existent {-velocity boundary condition 
is specified. 
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Subroutine BC2VEL (IBC,FBCJEQJMINJMAX,IBOUND) 

Called by 

Calls 

Purpose 

BCGEN 

BCIMET 

BCMET 

BCV2 

Compute 17 -velocity boundary conditions. 


DEL 

DXI, DETA, DZETA 
IBASE, ISTEP 


IBC, FBC 


IBOUND 

IEQ 

IMIN, IMAX 

ISWEEP 

IV 

II, 12, 13 
JI 

METX, METY, METZ 
♦ NOUT 

NR, NRU, NRV, NRW 


RHO, U, V, W 

Output 

A, B, C 

S 


Computational grid spacing in sweep direction. 

Computational grid spacing A£, A>j, and AC- 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Mean flow boundary' condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(I,J), where I runs from 
1 to N*, corresponding to the Ay? conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundaries. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the "vectorized" direction, i,. 

Grid indices i, j, and k, in the f , tj, and £ directions. 

Inverse Jacobian of the nonorthogonal grid transformation, 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y, and z. 

Unit number for standard output. 

Array indices associated with the dependent variables p, pu, pv, 
and pw. 

Static density p, and velocities u, v, and w, at time level n. 


Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary IBOUND (element IEQ 
only). 


Description 

Subroutine BC2VEL computes coefficients and source terms for >/ -velocity boundary conditions. The 
linearized equations for the various general types of boundary conditions are developed in Section 6.0 of 
Volume 1. The following sections apply these generalized equations to the particular ^-direction velocity 
boundary' conditions in Proteus. 16 


16 In the following description, for the first and second ADI sweeps the dependent variable should have the superscript 
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Specified r\- Velocity, V„ = f 


The velocity in the >7 direction, V v is defined as 


V„ = V - e n 

*i 


where e n is the unit vector in the r\ direction, given by, 

1 


^ = +V + z n k ) 


where 


m = 




Therefore, 




Applying equation (6.5) of Volume 1, the linearized boundary condition at a £ boundary becomes 

+ ^ - ** ..a. j>, 


A / 


; J, * _ 


A *^?7 A n A _“n 

■ Ap + -p - A(pu) + — A(pv) + A(pw) 


u> j 


=fuV-( v A,k 


Analogous equations can easily be written for the >7 and £ boundaries. 

Specified Two-Point ri-Velocity Gradient in Coordinate Direction , dVJd4> = / * 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differencing, 


A , 

m 


\,j,k r v /+ >v 

hr k [_ P 

UJ.k L 


j:„w + j;„v + zw a x a 

~ Ap + A(pu) + A(pv) + 


a T‘ 
-jT A(P W ) 

J i.y. 


+ 


i 

w 2 


V' + V + V* 


Ap + -jr- A(pu) + A(pv) + -A A(pw) 


T 


j 


2,j,k 


(*W n ;M+(V$j,k-(Vr,)Uk 


At the £ = 1 boundary, 

J, 


m Ny - 1 ,j,k [_ 

~w.* r 
w.* L 


x„u+ V v + z„w 


>7" a a . . A . 

Ap + — A(p«) 


J'n a 
— A(pv) + — A(pw) 


"to. 




>w)l 

A v a z„ A -1” 

Ap + -j}- A (pa) + Af A(pv) + -AL A(pw) 

JAf. f fr 


- u , * - (^)at, j, * 

Analogous equations can easily be written for the r\ and £ boundaries. 


* and **, respectively, representing the intermediate solution, and for the third ADI sweep it should have the 
superscript n 7 representing the final solution. For simplicity, however, only the superscript n is used. The super- 
scripts on all other variables are correct as written. 


128 4.0 Proteus Subprograms: BC2VEL 


Proteus 3-D Programmer's Reference 


Specified Three- Point t?- Velocity Gradient^ in Coordinate Direction, d VJd<t> £ 

Applying equation (6.8) of Volume 1 at the § = 0 boundary, and using three-point one-sided differenc- 
ing, 


3 A 

W * 

I 

vr J n n 

p 

• ft , n 

A P + — 

y 2j,* r 

V + V + Z r, W 

a a *7 

Ap H — t 

"*2,7 ,* L 


* p 

y 3,7, * r 

Wl. * , 1 

Jc n“ +J V' + z *? w 

a a ^ 

Ap + — 


P 


ft Z r, A 1 

>v) + — A(pw) 

J U,J 


+ 


m 3 


J 3 J,* 


2(A Wtfk + 3 4(F^ JU + (F,)^- * 


At the f = 1 boundary, 


- 2 ,j, k 
m N l - 2,y, * 

m /V, - 1 ,7, * 

m N\,j, k 


[ 

[ 

[ 


x^ + jy + z^w 

P 

X r, U + -V' + Z V W 

P 

X r, U + y v V + Z r, W 

P 


Ap + -jj- A(pw) + - p- A(pv) 4- — A(pw) J 
Ap + A(pw) + -p- A(pv) + — A(pw) J 
A p + -jr a (pu) + -p- A(pv) + — A(pw) J 




/V, - 2,7, * 
n 

N,- 1,7,* 


Ny,j,k 


+ 


2(A J,!fc ~ - 2,7, * + 4 ( ^ - 1,7.* 3(F fJ )^ i j * 


Analogous equations can easily be written for the >7 and £ boundaries. 

Specified T wo- Point y- Velocity Gradient in Normal Direction, VF„./r =/ 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using two-point one-sided differ- 
encing, 


; U r X„N + y„ V + Z n W A •*» A J^n ft Z n ft 1 

- y — ^ p Ap + — A (pu) + — A(pv) + — A(pw) J 

r *tt U +J , n V+ Z w W A ft ft z ! 7 ft ' 

_^L_ I 2 1 1- Ap + — A(p«) + — A(pv) + — A(pw) 


— 

- 0 ; fr 


a^ r.,,+1 

»*u.* 


F F £ z*7 2)1,7, * 


™ 1,7,* 


mUk - 


2,7, * 


m 


1,7’,* 


wu* 


and 5 n and <5 { are the centered difference operators presented in Section 5.0 of Volume 1. At the £ - 1 
boundary, 


Proteus 3-D Programmer's Reference 


4.0 Proteus Subprograms: BC2VEL 129 


_£l 


* i 

L 

JiV u j,k f 

W .V, J, k |_~ 


~\r rw ) 


A£ f n + 1 _ 

+ (^A 


f“ + J? V + Z^W X n A A Z 7 

p Ap + — A(pu) + — A(pv) + — 

+ tyly + Z&i)b\,j, k t /T , (£x£x + Zy^y + £/z)<V,,y,£ f (J/ %n 

m N x ,j,k & rf. V r } )N l J,k m N y J,k ^ 

/T7 \K 


XlJ> 


-1 J.k' 




Analogous equations can easily be written for the tj and £ boundaries. 

Specified Three- Point rj- Velocity Gradient in Normal Direction , VV n *n = f 

Applying equation (6.12a) of Volume 1 at the ^ = 0 boundary, and using three-point one-sided differ- 
encing, 


, J hj,k r V'+V + V’ aA , x „ a/ a^ y„ a ^ A j 

~ Z ~™h7, P -Ap+ — A(pw)+ — A(pv)+ — A(pw)J 

^ 2 ,y,/c p x »? w+ ^ v + z n w a ’a , x >? A , A ^ , A , A A , z n A/ A ^~| 

L P Ap+ — A(pw) + — A(pv) + — A(pw)J^ 

y 3 .y.* r V'+V + V' a a , a/ a n , y* a , a , , ** A , A ,T 
n^JJ [ - p Ap + — A (p«) + — A (pv) + — A(pw)J^ ^ = 

_2A£_f. n + 1 (^+^ + ^)i,y,fe ,, 

m \J,k y^>j- k m ] ,y, k °y^v'Uj,k 


j.k 


3 , 7 , * 

(Wx+^ + VAy,* 


m \J,k 

+ * v jh.k-* V $J.k + ( v $j,k 


Wrfj.k 


and 5, and <5; are the centered difference operators presented in Section 5.0 of Volume 1. At the £ = 1 
boundary, 


m 


Ni-TJJc r 

%-2,j,k |_ 

ifi-u.k r 

|_ 


15: 


w.* r 
w.* L 

2 A£ f B + i _ 

«jv„y.* L * J> " 


V* + V + V* 


V'+JV' + V’ 


*i,« + v + v* 


. x n a A ZL A 

Ap + -j}~ A(p«) + -f - A (pv) + 5L A (pw) 


I 

-* V 


at , -2 ,y.* 


A x » A A A z i A Y 

Ap H A(pu) + — A(pv) + A(pw) 


J 


Ni-hJ.k 

n 


. X ?7 A y„ A 2_ A “J 

Ap + A (ptt) + -5 A (pv) + -f A (pw) 

J aw>* 


(£x*1x 4" ^y^y 4" k 


Wh.k- 


m N x j,k [•"'W-* m AT 1 ,y, fc 

- (^A - 2 ,y, * + 4(^A - i,y, * - 3(FA,y, * 

Analogous equations can easily be written for the tj and £ boundaries. 


m ViJ,k 


W*w.* 
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Linear Extrapolation of r\-Velocity 

Applying equation (6.14) of Volume 1 at the £ = 0 boundary, 


A.j.k 

- x r, u + y n v + z n w 

m \J,k 

p 

J 2 ,j,k 

- x fJ u+y v v + z r jw 

“ ”h,j,k 

P 

h J, k 

- X r, U + V + Z n W 

m 3J,k 

p 


~{V n )lj, k + 2{V n )l 

■■ 1 boundary, 


Jh\ - 2 ,j, k 

■ X r, U + y n v + z n w 

m N x - 2 J, k 

p 

J ',V 1 - 1 J, k 

r x r, u + y v v + Z n W 

m N 1 - 1 ,j,k 

L 

J N\,j> k 

r X r, U + yri V + Z n W 


L" 


: n w a x v a a z a “| 

— A P + -J- A (pu) + — A(pv) + — A(pw) 

-M ,j,k 


A J', A 

P ~' r "’ ' ~P 


Ap + A (pw) + A(pv) + 


A 

-f A(pw) 


Ap + —y A (pu) + A(pv) + -j- A (pw) 


A A 


2J,k 

I - 


. A A A 

Ap + -y- A(pw) + A(pv) + -T- A(pw) 


a 

P -V"V • p 


] 


77 


A .F« A Zy. A "1 

Ap + — A(pu) + — A(pv) + — A(pw) 

A -Fm A A ”| 

Ap + A (pu) + -y A (pv) + — A(pw) = 

-*A'i.y. k 


+ 


- ( V t]) n ff i -2,j,k + - 1 

Analogous equations can easily be written for the r\ and C boundaries. 


Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described m Section 
2.3. 

2. An error message is generated and execution is stopped if a non-existent ^-velocity boundary condition 
is specified. 
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Subroutine BC3VEL (IBC,FBC,IEQ,IMIN,IMAX,IBOUND) 


Called by 

Calls 

Purpose 

BCGEN 

BCIMET 

BCMET 

BCV3 

Compute C-velocity boundary conditions. 


Input 


DEL 

DXI, DETA, DZETA 
IBASE, ISTEP 


IBC, FBC 


IBOUND 


IEQ 

IMIN, IMAX 

ISWEEP 

IV 

II, 12, 13 
JI 

METX, METY, METZ 
+ NOUT 

NR, NRU, NRV, NRW 



S 


Computational grid spacing in sweep direction. 

Computational grid spacing A£, A>?, and AC. 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Mean flow boundary condition types and values for current sweep 
direction, specified as IBC(I,J) and FBC(IJ), where I runs from 
1 to AC*, corresponding to the conditions needed, and J = 1 
or 2, corresponding to the lower and upper boundanes. 

Flag specifying boundary; 1 for lower boundary, 2 for upper 
boundary. 

Boundary condition equation number. 

Minimum and maximum indices in the sweep direction. 

Current ADI sweep number. 

Index in the Vectorized" direction, z v . 

Grid indices *,/, and k , in the £, 17, and C directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J~K 

Derivatives of sweep direction computational coordinate with re- 
spect to x,y t and z. 

Unit number for standard output. 

Array indices associated with the dependent variables p, pu, pv, 
and pw. 

Static density p, and velocities u , v, and w, at time level n. 

Coefficient submatrices A, B, and C at boundary IBOUND (row 
IEQ only). 

Source term subvector S at boundary IBOUND (element IEQ 
only). 


Description 


Subroutine BC3VEL computes coefficients and source terms for C-velocity boundary conditions. The 
linearized equations for the various general types of boundary conditions are developed in Section 6.0 of 
Volume 1. The following sections apply these generalized equations to the particular C -direction velocity 
boundary conditions in Proteus. 17 


n In the following description, for the first and second ADI sweeps the dependent variable should have the superscript 
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Specified tj-Velochy , K f = f 


The velocity in the £ direction, F f , is defined as 


V,= V.e, 

where e { is the unit vector in the £ direction, given by, 

+V + z c*) 

where 


Therefore, 

K C = ^ ( x £ u + y S v + Z C W ) 

Applying equation (6.5) of Volume 1, the linearized boundary condition at a £ boundary becomes 

J; } k r XrU+y C V+ ZrW Xr A JV A Zr A “I* - + i 

[ J — Ap + -jj- A (pu) 4 A(pv) + A(pw)J ^ -y&V - (^)*;, * 

Analogous equations can easily be written for the y\ and £ boundaries. 

Specified Two-Point £- Velocity Gradient in Coordinate Direction , dVrld<}> — f 

Applying equation (6.8) of Volume 1 at the £ = 0 boundary, and using two -point one-sided differencing, 


J \ ,j,k 

x^u 4 y^v 4 z^w 

m \ J,k 

P 

J-l ,j,k 

x Q u + yp + 2 Q w 

”h J,k 

P 

(A W?jt+(V$j, k 

1 boundary, 


h v, - 1 ,j,k 

r XrU + y^v + z^w 

m N 1 - 1 k 

L 

J Ny,j,k 

r x^u+y^ + z^w 

m S\,j, k 

L 


. x r a yr a z^ a 
Ap 4 — A (pu) 4 — A(pv) 4 — A(pw) 

j 9 k 


Xr a JV A Z, A -I 

Ap 4 A(p«) 4 -j- A(pv) 4 -f A(pw) J 

A a yr a 2> a “I 

Ap 4 A(pw) 4 -y- A (pv) 4 — A(pw) J 


4 


- 1 J 

M 

Nuj, k 


+ (^)v, - i j.t - (Vfaj.k 

Analogous equations can easily be written for the r\ and £ boundaries. 


* and **, respectively, representing the intermediate solution, and for the third ADI sweep it should have the 
superscript n y representing the final solution. For simplicity, however, only the superscript n is used. The super- 
scripts on all other variables are correct as written. 
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Specified Three- Point {.-Velocity GradierU in Coordinate Direction , dV r ld4> = [ 


Applying equation (6.8) of Volume 1 at the f = 0 boundary, and using three-point one-sided differenc- 


ing, 


-3 


A ,j,k 

x^u + y^v 4- ZrW 

m \ J, k 

P 

^2 ,j, k 

XqU + J^V -f ZrW 

«*2 J.k 

P 

J 2 ,j, k 

x^u + y^v + Zf'W 

m 3,j,k 

P 


Xr a yr a a n 

Ap + A (pw) + — A(pv) + — A(pw) 

-mj,* 

A Xr a Jr a A “|" 

Ap + A (pw) + -JJ- A(pv) + — A(pw) 

J-) ; b 

. Xr a Jr /V Zr A “I 

Ap + -A- A(pu) + -A- A(pv) + — A(pw) J 


2J,k 
n 


J 3j\k 


WMijk + 4 ( v 0ij,k + 


At the £ = 1 boundary, 


j n ] - 2,7, k r x^u + y^v + z^ 
m N\ — 2, j,k L P 

J N,-\J,k r x^u+yt-v + ZrW 

4 m N\-\J,k L" P 

„ Aw,* r Af^ + y c v + z c w 

3 ™AW,* L p 


A a Jr a Z C A H 

Ap + A (pw) + A(pv) + -f A(pw) J 

A *£ A W A Zr a ~1 

Ap + -A- A(p«) + -A- A(pv) + — A(pw) J 

A Xr a Jr A Zr A “I 

Ap + -A- A(pw) + -A- A(pv) + — A(pw) J 


77 


Afj - 2J, k 
n 

N\ - 1 J, * 

n 

N lt J.k 


+ 


2(A«fi5i J. 1 * - (V c )% - 2,;, * + 4 ( v dk - ij,k~ WAj . * 

Analogous equations can easily be written for the r\ and C boundaries. 

Specified^ Two- Point C- Velocity GradierU in Normal Direction , VV r .n = f 

Applying equation (6.12a) of Volume 1 at the <* = 0 boundary, and using two-point one-sided differ- 
encing, 


J \,j,k r 

m \,j,k l 

r _ 

Ui.k L 


c {“ +J, C 


V + ZrW 


h 

m 2 


XrU + y^v + ZqW 


a A JV A Zf A 

■ Ap + -J- A(p w) + — A (pv) + — A(pw) 

J 1JJ 

a X C a yr a A ~|" 

Ap + -j- A (pw) + -A- A(pv) + — A(pw) 

-Jo ; i 


+ 


/-n + 1 

Y X,i ' k 


(Zxlx+ZyVy+tznzhj.k , (££*+%> + Wj)l.y,* £ /T , N n 

^( K c)l,y,fc 


+(v$j, k -(vy 2J ' k 


and <5, and <5 { are the centered difference operators presented in Section 5.0 of Volume 1. At the £ = 1 
boundary. 
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J N x -\j,k r 

~ m Sx _ UJ ' k |_ 

\j.* r 

7 A f u j,k l 

\ f-n + 1 

%j,k Y N " hk 


+ jy + zy 


A p + -y A(pw) + -y A(pv) + -y A(pw) 


?w)l 


+ 


J 


y 

"'AT, 


Xy + jy + ZrW 


iVi-U.* 

72 


A *r a JV a 2V a 1 

Ap + — A(pu) + -y A(pv) + — A(pw) 

-*Mik 


(Zxlx + Zyly + ^z)N x ,j, k 


*iJ. k 

(Wx+«/y+«r)AW.* 


l"w.« - Wv,.,« 

+ ( - l J, * - ( V Ad< * 

Analogous equations can easily be written for the rj and £ boundaries. 

Specified Three- Point £- Velocity GradierU in Normal Direction , VF f -n=f 

Applying equation (6.12a) of Volume 1 at the £ = 0 boundary, and using three-point one-sided differ- 
encing, 


J\ J t k 

r xy + jy - 1 - zy 

m u,k 

L 

J 2,j,k 

r XrU + yrV + zy 

m 2J, k- 

L 

^3 ,j, k 

r xy + jy + zy 

m 3J,k 

L _ 


A *7 A yr A 2r A "1 

Ap + *y A(pw) + — A(pv) + — A(pw) 

J 1J, 


y( 


Ap + A (pw) + -3- A(pv) + — A(pw) 


-i n 

>w)l 

-*3,y, k 


m [~ fW +i 

m lj,i 


(Zx*1x + Zy*1y+ £#z)\J,k 


m l, j.k 

h — 4(F^)2 iy> A * 


< ty f f)i,7,* *c( y {h J.k 


and <5, and <5. are the centered difference operators presented in Section 5.0 of Volume 1. At the £ — 1 
boundary, 


^1 - 2 ,7, k 

r XrU + jy + ZrW 

m ,V, - 2 ,j, k 

L 

Ar, - l.y,* 

r xy + yrV + zy 

m ,V l - 1,7,* 

L 

, J tfiJ.k 

r xy + jy + zy 

m N x J,k 

L" 


. Xr a J>r A Zr A “I 

Ap + -y A(pw) + -y A(pv) + -y A(pw)J 

A X C A JV A 2r A "Y‘ 

Ap + — A(pu) + — A(pv) + — A(pw) 


ffi-2 J.k 
n 


+ 


A Xr A yr a 2> 

Ap + — A(pw) + — A(pv) + — A(pw) 


- / 


2A£ /-T7 + 1 __ 

m N x J,k Y NlJ ' k 


m N u j, k 


Ww,*- 


'l*i J.k 

(£x£x + Zy£y + ^z)s\J,k 
m N x J,k 


W*W.* 


~ (1 V$\ -2J. k + - 1 J.*~ WAj,* 


Analogous equations can easily be written for the r\ and £ boundaries. 
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Linear Extrapolation of ^Velocity 

Applying equation (6. 14) of Volume 1 at the £ = 0 boundary, 


A,j,k 

x^u + JVV + Z^w 

m \,j,k 

p 

„ J 2J,k 

X/-U + >VV + ZrW 

m 2J,k 

p 

h,j,k 


m 3,j,k 

p 


-(V$ j.k + WJl 

1 boundary, 


J N x -1,j,k 

x^u + y^v + z^w 

m N l — 2J,k 

P 

— },j,k 

x^u+y^v + ZqW 

m N\ — 1 yjy k 

P 

J N i ,j,k 

X^U + y^y + Z^W 

m N x J, k 

p 


A x r a yr A Zr A “] 

A/> + A(pw) + A(pv) + A(pw) 


Ap 4- -y- A (pu) + A(pv) + -j- A(pw) 


] 

a X C A A 2 C A "I 

Ap + -y- A (pu) + — A(pv) + — A(pw) J 


+ 


2J,k 

n 

3J,k 


Ap + -j- A(pw) + A(pv) + A(pw) 


A A -Pr a 

Ap + A(pw) + -jj- A(pv) + 


77 

iVj - 2,y, £ 


A^ + ^A(p W ) 


z « * T 

-7- A M 

A 3V A A “l" 

4- -p- A(pv) + — A(pw) 

J AW.* 


+ 


■ ~ 2 J, k + 2(^ - 1 J, * - J, * 


Analogous equations can easily be written for the r\ and C boundaries. 

Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Ljction 
2.3. 

2 , An error message is generated and execution is stopped if a non-existent £ -velocity boundary condition 
is specified. 
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Subroutine BLIN 

Called by 

Calls 

Purpose 

TURBBL 

ISRCHFGT 

VORTEX 

Compute inner layer turbulent viscosity. 


Input 

* APLUS 

* CB 

* CNL 

* CVK 

EP1, EP2 

* ILDAMP 

* INNER 

* LWALL1, LWALL2, LWALL3 
MU 
MUT 
NTOTP 

* Nl, N2, Nl* 

* RER 
RHO, U, V, W 
X, Y, Z 

Output 

MUT Turbulent viscosity coefficient p t . 

Description 

Subroutine BLIN computes the inner layer turbulent viscosity coefficient For each grid point, 

subroutine BLIN first sets the variable DUMMY equal to a number from 1.0 to 6.0 as a flag specifying the 
nearest solid wall. If none of the three grid lines through the point intersect a solid wall, the point is a wake 
point and DUMMY = - 1. If there are no solid walls, control is returned to the calling program. Other- 
wise, subroutine VORTEX is called to get the vorticity magnitude at each point. 

The inner layer turbulent viscosity coefficient (Mr)<™r is then computed based on the nearest wall, and 
it is assumed that the inner regions do not overlap. Three different inner region models are available - the 
model of Baldwin and Lomax (1978), with and without the modified mixing length formula of Launder and 
Priddin, and the model of Spalding (1961) and Kleinstein (1967). These are described in Section 9.1 of 
Volume 1. 


Van Driest damping constant A*. 

Constant B in the Spalding-Kleinstein inner layer model. 

Exponent n in the Launder-Priddin modified mixing length for- 
mula for the inner region of the Baldwin-Lomax turbulence 
model. 

Von Karman mixing length constant used in the inner region of 
the Baldwin-Lomax and Spalding-Kleinstein models. 

Minimum and maximum allowable numerical values. 

Flag for Launder-Priddin modified mixing length formula in the 
Baldwin-Lomax inner region model. 

Flag for type of inner region model. 

Flags specifying wall locations for £, t], and £ boundaries. 

Laminar coefficient of viscosity pi- 

Outer layer turbulent viscosity coefficient (/x r ) oa ,„. 

Dimensioning parameter specifying the storage required for a full 
three-dimensional array (i.e., NIP x N2P x N3P). 

Number of grid points A), A 2 , and Aj, in the £, 1, and £ directions. 

Reference Reynolds number Re r . 

Static density p, and velocities u, v, and w. 

Cartesian coordinates x, y, and z. 
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BLIN then sets the final turbulent viscosity coefficient equal to the minimum of the inner and outer 
region values. Thus, 

Mr = (Mr) outer} 

Remarks 

1. To avoid the possibility of floating point errors, the value of | Q | ^ used to compute t and it is set to 
a minimum of 10" 10 . 
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Subroutine BLKOUT (I1PT,I2PT,DPT) 

Called by 

Calls 

Purpose 

ADI 
AVIS Cl 
AVISC2 
BCGEN 
FILTER 


Print coefficient blocks at specified indices in the £, rj, and £ directions. 


Input 

A, B, C 

* IHSTAG 
ISWEEP 

I1PT, I2PT, DPT 

NC, NXM, NYM, NZM, NEN 

NEQ 

* NOUT 
S 


Coefficient submatrices A, B, and C 

Flag for constant stagnation enthalpy option. 

Current ADI sweep number. 

Indices for printout in the £, tj, and £ directions. 

Array indices associated with the continuity, x-momentum , 
y-momentum, z-momentum, and energy equations. 

Number of coupled equations being solved, A',,. 

Unit number for standard output. 

Source term subvector S. 


Output 

None. 


Description 

Subroutine BLKOUT prints the coefficient block submatrices A, B, and C, and the source term sub- 
vector S at the grid points specified by I1PT, DPT, and I3PT. This is the routine that actually prints the 
output for the IDEBUG(l) through IDEBUG(4) options. 
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Subroutine BLK4 


Called by 

Calls 

Purpose 

ADI 

FILTER 

Solve 4x4 block tridiagonal system of equations. 


Input 

A, B, C Coefficient submatrices A, B, and C 

NPTS Number of grid points in the sweep direction, V. 

NV Number of grid points in the "vectorized" direction, N v . 

S Source term subvector S. 

Output 

S Computed solution subvector. 

Description 

Subroutine BLK4 solves a block tridiagonal system of equations with 4x4 blocks using the block ma- 
trix version of the Thomas algorithm. Subroutine FILTER is called in an attempt to eliminate any zero 
values on the diagonal of the submatrix B at the two boundaries. These can occur when mean flow 
boundary conditions are specified using the JBC and/or IBC input parameters, depending on the initial 
conditions and the order of the boundary conditions. 

The algorithm is described in Section 7.2.1 of Volume 1. For clarity, that description involves additional 

"new" matrices D, E, and AQ'. In Fortran, however, we can save storage by overwriting B, C, and S. The 
following table relates the algorithm as implemented in Fortran to the notation used in Volume 1, for the 
first ADI sweep. An exactly analogous procedure is followed for the second and third sweeps. 


Step 

In Fortran 

In Volume 1 Notation 

i 


D, = B, 

2a 

LU decompose B : , storing result in Bi 

LU decomposition of Di 

2b 

Solve BiEi = Ci for Ei using LU decomposition of 

E^Dr’C, 


Bi, storing result in Ci 


2c 

Solve BjAQi = for AQi using LU decomposition 
of Bi, storing result in Si 

t> 

II 

o 

yi 


For /== 2 to Ni , 


3a 

Compute B, — A f C, _ u storing result in B, 

D, = B; — A|E, _ i 

3b 

Compute S* — storing result in S, 

S, - A,AQ' - . 

3c 

LU decompose B„ storing result in B, 

LU decomposition of D, 

3d 

Solve B £ E, = C ( for E, using LU decomposition of B 0 
storing result in C , 

E, = Dr*C, 

3e 

A A 

Solve B AQ' = S, for AQ' using LU decomposition 
of B £ , storing result in S, 

aq; =Dr'(S,- A,AQ',-i) 

n 


AQ Vl = AQVi 


For i — N\ — 1 to 1, 


5 

Compute Si — CS 4 * +1 , storing result in S £ 

AQ, = AQ; -E,AQ, + 1 
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Remarks 


1. The notation used in the comments in BLK4 is consistent with the notation used in the description of 
the algorithm in Volume 1. 

2. The Thomas algorithm is recursive and therefore cannot be vectorized in the sweep direction. In 
ADI procedure, however, if the coefficients and source terms are stored in all three directions, the 
gorithm can be vectorized in one of the non-sweep directions. That is the reason for the fust, or 
subscript on the A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routii 
This increases the storage required by the program, but greatly decreases the CPU time required for the 
ADI solution. 
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Subroutine BLK4P 


. Called by 

Calls 

Purpose 

ADI 


Solve 4x4 periodic block tridiagonal system of equations. 


Input 

Coefficient submatrices A, B, and C 
Number of grid points in the sweep direction, A r . 

Number of grid points in the "vectorized" direction, A r „. 

Source term subvector S. 

Output 

S Computed solution subvector. 

Description 

Subroutine BLK4P solves a periodic block tridiagonal system of equations with 4x4 blocks. An effi- 
cient algorithm similar to the block matrix version of the Thomas algorithm is used to solve the equations. 
The algorithm is described in Section 7.2.2 of Volume 1. For clarity, that description involves additional 

"new" matrices D, E, F, G, and AQ'- In Fortran, however, we can save storage by overwriting A, B, C, and 
S. The following table relates the algorithm as implemented in Fortran to the notation used in Volume 1, 
for the first ADI sweep. An exactly analogous procedure is followed for the second and third sweeps. 


A, B, C 
NPTS 
NV 
S 


Step 

In Fortran 

In Volume 1 Notation 

la 


D 2 = B 2 

lb 


F 2 = Cjvj 

2 a 

LU decompose storing result in B 2 

LU decomposition of D 2 

2 b 

Solve B 2 E 2 = C 2 for E 2 using LU decomposition of 
82 , storing result in C 2 

E 2 — Df ’C 2 

2 c 

Solve B 2 G 2 = A 2 for G 2 using LU decomposition of 
B 2 , storing result in A 2 

G 2 = D 2 >Aa 

2 d 

Solve B 2 AQ 2 = & for AQ 2 using LU decomposition 

aq 2 =d 2 'S2 


of 62 , storing result in S 2 
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Step 


In Fortran 


In Volume 1 Notation 


3a 

3b 

3c 

3d 

3e 

3f 

3g 

3h 

3i 

3j 

For i = 3 to A ; i — I, 

Compute B, - A,C,_ lt storing result in B, 

Compute S, — A,S,_i, storing result in S, 

Compute — A,A,_i, storing result in A, 

LU decompose B„ storing result in B, 

Solve B,E, = C, for E, using LU decomposition of B„ 
storing result in C, 

Solve B,G, = A, for G, using LU decomposition of B„ 
storing result in A, 

Solve B,AQ| = S, for AQ' using LU decomposition 
of B„ storing result in S, 

Compute By, - Cy,A,_ ,, storing result in By, 

Compute Sy, - Cy,S,_i, storing result in Sy, 
Compute — Cy,C,_,, storing result in Cy, 

D, = B, - A,E, _ , 

S, — A,AQ'_i 

— A,G, _ i 

LU decomposition of D, 

E, = D C, 

G, - Dr 1 A,G, _ i 

AQ' =Dr*(S,-A,AQ'_ 1 ) 

Btf] — E F/G; 

Sy, - ZF,AQ' 

J=2 

F, = — F,_ ,E,_ i 

4a 

4b 

4c 

4d 

4e 

4f 

Compute Ay, _ ! + Cy, _ b storing result in Ay, _ x 
Compute Ay, 4* Cy,, storing result in Cy, 

Compute By, — Cy,Ay,_i, storing result in By, 

Compute Sy, — Cy,Sy, _ ,, storing result in Sy, 

LU decompose By,, storing result in By, 

Solve By,AQy, = Sy, for AQy, using LU dect>mpo$- 
■ ition of By,, storing result in Sy, 

Gy, _ i = Dy,L i(Cy, _ i — Ay, _ jGy, - 2 ) 
Fy, _ 1 = Ay, — Fy, - 2 Ey, _ ^ 
yi-i 

Dy, — By, — X EG, 

i = 2 

^1-1 

Sy, - x f,aq; 

* » 2 

LU decomposition of Dy, 

AQ'yi =Dy, 1 (Sy,-\ 1 F 1 AQ;) 

i-2 

5 


AQy, = AQy, 

6 

Compute Sy, _ i — Ay, _ ,Sy p storing result in Sy, _ i 

AQy, _ 1 = AQ'yj - I — Gy, _ 1 AQy, 


For i = JV, — 2 to 2, 


7 

Compute S, — A/Sy, — C,S, + storing result in S, 

AQ, = AQ' - G,AQy, - E,AQ, _ , 

8 

Set Sj — Sy, 

AQi = AQy, 


Remarks 

1. The notation used in the comments in BLK4P is consistent with the notation used in the description 
of the algorithm in Volume 1. 

2. The solution algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in all three directions, the al- 
gorithm can be vectorized in one of the non-sweep directions. That is the reason for the first, or IV, 
subscript on the A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. 
This increases the storage required by the program, but greatly decreases the CPU time required for the 
ADI solution. 
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Subroutine BLK 5 

Called by 

Calls 

Purpose 

ADI 

FILTER 

Solve 5x5 block tridiagonal system of equations. 

Input 

A, B, C 
NPTS 
NV 
S 


Coefficient submatrices A, B, and C 
Number of grid points in the sweep direction, N, 
Number of grid points in the "vectorized" direction, AC 
Source term subvector S. 

Output 

S 


Computed solution subvector. 


Description 

Subroutine BLK5 solves a block tridiagonal system of equations with 5 x 5 blocks using the block ma- 
trix version of the Thomas algorithm. Subroutine FILTER is called in an attempt to eliminate any zero 
values on the diagonal of the submatrix B at the two boundaries. These can occur when mean flow 
boundary conditions are specified using the JBC and/or IBC input parameters, depending on the initial 
conditions and the order of the boundary conditions. 

The algorithm is described in Section 7.2.1 of Volume 1. For clarity, that description involves additional 

"new" matrices D, E, and AQ'. In Fortran, however, storage is saved by overwriting B, C, and S. The al- 
gorithm is identical to that used in subroutine BLK4. See the description of that subroutine for a table 
relating the algorithm as implemented in Fortran to the notation used in Volume 1. 

Remarks 

1. The notation used in the comments in BLK5 is consistent with the notation used in the description of 
the algorithm in Volume 1. 

2. The Thomas algorithm is recursive and therefore cannot be vectorized in the sweep direction. In an 
ADI procedure, however, if the coefficients and source terms are stored in all three directions, the al- 
gorithm can be vectorized in one of the non-sweep directions. That is the reason for the first, or IV, 
subscript on the A, B, C, and S arrays. It was added simply to allow vectorization of the BLK routines. 
This increases the storage required by the program, but greatly decreases the CPU time required for the 
ADI solution. 
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Subroutine BLK5P 

Called by 

Calls 

Purpose 

ADI 


Solve 5x5 periodic block tridiagonal system of equations. 

Input 

A, B, C 

NPTS 

NV 

Coefficient submatrices A, B, and C 

Number of grid points in the sweep direction, N. 

Number of grid points in the "vectorized" direction, N v . 


S Source term subvector S. 

Output 

S Computed solution subvector. 


Description 

Subroutine BLK5P solves a periodic block tridiagonal system of equations with 5x5 blocks. An effi- 
dent algorithm similar to the block matrix version of the Thomas algorithm is used to solve the equations. 
The algorithm is described in Section 7.2.2 of Volume 1. For clarity, that descnption involves additional 

"new” matrices D, E, F, G, and AQ'. In Fortran, however, storage is saved by overwriting A, B, C, and 
S. The algorithm is identical to that used in subroutine BLK4P. See the descnption of that subroutine for 
a table relating the algorithm as implemented in Fortran to the notation used in Volume 1 . 


Remarks 

1. The notation used in the comments in BLK5P is consistent with the notation used in the description 
of the algorithm in Volume 1. 

2. The soluti n algorithm is recursive and therefore cannot be vectorized in the sweep direct, m. In an 
ADI procedure, however, if the coefficients and source tenns are stored in all three directions, the al- 
gorithm can be vectorized in one of the non-sweep directions. That is the reason for the lirst, or 1 , 
subscript on the A, B, C, and S arrays. It was added simply to allow vectonzation of the BLK routines. 
This increases the storage required by the program, but greatly decreases the CPU time required lor the 
ADI solution. 
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BLOCK DATA Subprogram 

Called by 

Calls 

Purpose 



Set default values for input parameters, plus a few other parameters. 


Input 


None. 


Output 


All namelist input parameters, plus: 
CCP1, CCP2, CCP3, CCP4 

Constants in formula for specific heat. (8.53 x 10 3 , 3.12 x 10 4 , 
2.065 x 10 6 , 7.83 x 10 8 ) 18 

CK1, CK2 

Constants in formula for laminar thermal conductivity coefficient. 
(7.4907 x 10“ 3 , 350.0) 18 

CMU1, CMU2 

Constants in formula for laminar viscosity coefficient. ( 

7.3035 x 10- 7 , 198.6) 18 

GC 

Proportionality factor g c in Newton's second law. (32.174) 18 

IBCELM 

Flags for elimination of off-diagonal coefficient submatrices re- 
sulting from three-point boundary conditions in the £ and/or r\ 
directions; 0 if elimination is not necessary, 1 if it is. (2*0, 2*0) 

IBVUP 

Flags for updating boundary values from first two sweeps after 
third sweep; 0 if updating is not necessary, 1 if it is. (0,0,0) 

ICONV 

Convergence flag; 1 if converged, 0 if not. (0) 

IGINT 

Flags for grid interpolation requirement for the £, y, and £ di- 
rections; 0 if interpolation is not necessary, 1 if it is. (0,0,0) 

ITBEG 

The time level n at the beginning of a run. (1) 

KBCPER 

Flags for spatially periodic boundary conditions in the £, >7, and £ 
directions; 0 for non-periodic, 1 for periodic. (0,0,0) 

NC, NXM, NYM, NZM, NEN 

Array indices associated with the continuity, r-momentum, 
j?-momentum, z-momentum, and energy equations. (1,2, 3, 4, 5) 

NIN 

Unit number for standard input. (5) 

NR, NRU, NRV, NRW, NET 

Array indices associated with the dependent variables p, pu , pv, 
pw, and E t . (1,2, 3, 4, 5) 

TAU 

Initial time value t. (NTOTP*0.0) 


Description 

The BLOCK DATA routine is used to set default values for all the input parameters, plus various other 
parameters and constants. The defaults for all the input parameters are given as part of the standard input 
description in Section 3.1 of Volume 2. The values for the other parameters and constants set in BLOCK 
DATA are given in parentheses in the above output description. Note that some of these values assume 


18 These values are for reference conditions specified in English units. Values for SI units are set in subroutine IN- 
PUT. 
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English units axe being used to specify reference conditions. If SI units are being used, these values are re- 
defined in subroutine INPUT. 

Remarks 

1. Most of the default values are defined directly, but some, like the reference viscosity MUR, are set equal 
to zero and defined in subroutine INPUT if not specified by the user. 
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Subroutine BLOUT 

Called by 

Calls 

Purpose 

TURBBL 

GATHER 

ISAMAX 

ISAMIN 

ISRCHFGT 

ISRCHFLT 

VORTEX 

WHENFLT 

Compute the outer layer turbulent viscosity, using the algebraic 
Baldwin-Lomax model. 


* APLUS 

* CB 

* CCLAU 

* CCP 

* CKLEB, CKMIN 

* CWK 
EP1, EP2 

* FPMIN 

* LWALL1, LWALL2, LWALL3 
MU 

NTOTP 

* Nl, N2, N3 
NIP, N2P 

* RER 

RHO, U, V, W 
X, Y, Z 


Van Driest damping constant A + . 

Constant B in the Klebanoff intermittency factor. 

Clauser constant K in the Baldwin-Lomax outer region model. 
Constant C cp in the Baldwin-Lomax outer region model. 
Constants C K m and {C Klei ) min in the Klebanoff intermittency factor. 
Constant C wk in the Baldwin-Lomax outer region model. 
Minimum and maximum allowable numerical values. 

Value used to cut off the search for f max- 

Flags specifying wall locations for £, r\, and £ boundaries. 

Laminar coefficient of viscosity p/. 

Dimensioning parameter specifying the storage required for a full 
three-dimensional array (i.e., NIP x N2P x N3P). 

Number of grid points N u N 2 , and AY in the and £ directions. 

Parameters specifying the dimension sizes in the £ and rj di- 
rections. 

Reference Reynolds number Re r . 

Static density p, and velocities u, v, and w. 

Cartesian coordinates x , y , and z. 


Output 

MUT 


Outer layer turbulent viscosity coefficient (p r ) cuf «r. 


Description 

Subroutine BLOUT computes the outer layer turbulent viscosity coefficient (filter using the algebraic 
eddy viscosity model of Baldwin and Lomax (1978). The model is described in Section 9.1 of Volume 1. 
The steps performed in BLOUT are as follows: 

1. Initialize the array DUMMY to zero. 

2. For each grid point, set the variable DUMMY equal to a number from 1.0 to 6.0 as a flag specifying 
the nearest solid wall. If none of the three grid lines through the point intersect a solid wall, the point 
is a wake point and DUMMY = — 1. 

3. Call VORTEX to compute the vorticity magnitude at each grid point. 
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4. If there are no wall-bounded points, skip ahead to step 9. 

5. Along each grid line that intersects a solid wall, compute 

F=y n \n\(i-e- y+IA+ ) 

where y n is the distance to the wall. For each line, search outward from the wall for the first peak in 
F, calling it's value FPEAK. Keep searching outward, cutting off the search when F drops below 
FPMIN*FPEAK. (FPMIN is an input parameter with a default value of O.9.). FPEAK is then the 
value of F mai for the current wall and grid line. Store the index corresponding to F i wax in the LWALL 
parameter for the current wall and grid line. 

6. At each wall-bounded grid point, compute 

(^dourer = F Fj^ieb^'wake 


In this formula, 


F ^ake ymax^rr, 


where F m „ is the appropriate value from step 5 for the nearest solid wall, and y max is the corresponding 
value of y n . F K!tb is the Klebanoff intermittency factor, given by 


F Kleb ~~ (C Kleb) min "b Klebfmin\ 


1+5 


/ Caleb yn V 
y ymax ) 


n-l 


The Re r in the formula for p, causes (n , to be nondimensionalized by p,. 

7. The LWALL parameters used to store the indices corresponding to F max are then reset to 1 . 

8. If there are no wake points, the calculation is finished, so skip ahead and return to the calling program. 

9. For each wake point, set the variable DUMMY equal to a number from — 1.0 to — 6.0 as a flag spec- 
ifying the nearest boundary. 

10. At each grid point, compute the total velocity magnitude | U| , storing it in U. The sign is set equal to 
the original sign of the x- velocity, for later use when U is reset to the x- velocity. 

1 1. For each grid line, get the indices corresponding to | V\ and | U|^. 

12. For each wake point, along the grid line that intersects the nearest boundary, compute 


where (y „) i is the distance to the point where | V\ = | V \ and (y„) 2 is the distance to the point where 
j j/| = | v\ . The two values of F are stored in MUT and VORT, respectively. 

13. For each grid line in the £ direction that contains wake points, get the locations of (Fi) m „ and (F 2 ) m „. 
Since a grid line may have both wall-bounded and wake points, the F values are first gathered into a 
one-dimensional array containing only the wake point values. This array is then searched for the lo- 
cation of F m „, and the resulting index is converted to the proper index along the original grid line. 
Then, for each wake point along the grid line whose nearest boundary is at £ = 0 or £ = 1, compute 
(y,) ra J and (y 2 )„„, where (yi)«« is the value of (y n ), corresponding to etc. Finally, compute 

(^i)outer KC C ppF wa fcgR€ r 


where 
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r __ r i / 2 y^tax 
* wake ” '^wk* / diff r 

VY\n^r 


v diff =\v\ 


- V 


In the computation of 1 F„ a * e , ymax = min[(yi) m<! ,, (y:) m«3 , and F m „ is the corresponding or 

The Re, in the formula for fi, causes (Mr)o„«r to be nondimensionalized by fi r . The (MtW values are 
stored in DUMMY so the loop will vectorize. They are flagged as wake point values by making them 
negative. 

14. Repeat step 13 for grid lines in the >; and £ directions. 

15. For each wake grid point, move from DUMMY into MUT, making it positive. 

16. Reset U to the value of the velocity. 

Remarks 

1. To avoid the possibility of floating point errors, the values of |Um<w|> | j , and F m „ are set to a 
minimum of 10~ 10 . 
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Subroutine BVUP 

Called by 

CaHs 

Purpose 

EXEC 

BCGEN 

EQSTAT 

SGEFA 

SGESL 

Update first and second sweep boundary values after third sweep. 


Input 

DXI, DETA 

ETAX, ETAY, ETAZ, ETAT 
IBVUP 

* IHSTAG 
JI 

KBCPER 

NEQ 

NEQP 

NPT1, NPT2, NPT3 

NR, NRU, NRV, NRW, NET 

* Nl, N2, N" 

NIP, N2P 


RHO, U, V, W, ET 
RHOL, UL, VL, WL, ETL 
XIX, XIY, XIZ, XIT 


Computational grid spacing A£ and A rj. 

Metric coefficients rj x , rj y , and tj t . 

Flags for updating boundary values from first two sweeps after 
third sweep; 0 if updating is not necessary, 1 if it is. 

Flag for constant stagnation enthalpy option. 

Inverse Jacobian of the nonorthogonal grid transformation, J~ l . 

Flags for spatially periodic boundary conditions in the >7, and £ 
directions; 0 for non-periodic, 1 for periodic. 

Number of coupled equations being solved, N eq . 

Dimensioning parameter specifying maximum number of coupled 
equations allowed. 

N u N 2 , and V 3 for non-periodic boundary conditions, Ni +l, 
A'2 + 1, and Nz + 1 for spatially periodic boundary condition in £, 
and £. 

Array indices associated with the dependent variables p, pu , pv, 
pw, and Et . 

Number of grid points A r i, N 2 , and A r 3 , in the £, y, and £ Erections. 

Parameters specifying the dimension sizes in the £ and rj di- 
rections. 

Static density p, velocities w, v, and w t and total energy E r at time 
level n at all grid points. 

Static density p, velocities w, v, and w, and total energy Et at time 
level n + 1 at all interior grid points. 

Metric coefficients £*, £ z , and 


Output 


DEL 

IBASE, ISTEP 

ISWEEP 

IV 

METX, METY, METZ, METT 
NPTS 


Computational grid spacing for the sweep direction being updated. 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

ADI sweep number for sweep direction being updated. 

Index in the "vectorized" direction, k. 

Derivatives of computational coordinate, for the sweep direction 
being updated, with respect to x , y , z, and t. 

Number of grid points N in the sweep direction being updated. 
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NV 

RHOL, UL, VL, WL, ETL 


Number of grid points in the "vectorized" direction, N v . 

Static density p, velocities u , v, and w, and total energy E T at time 
level 77 -f- 1 at boundary points from first and second sweep. 


Description 

Subroutine BVUP updates boundary values from the first and second, or £ and rj, sweeps after the third, 
or C, sweep. In general, this is necessary when gradient or extrapolation boundary conditions are used in 
the £ or t] direction. Some updating is also necessary when spatially periodic boundary conditions are used. 
The procedure for non-periodic boundary conditions is described in Section 7.3 of Volume 1. 

Updating boundary values is complicated somewhat when spatially periodic boundary conditions are 
used. 



Figure 4.1 


- Updating boundary values for periodic boundary conditions in the £ direction. 


The situation for a periodic boundary condition in the £ direction but not in the rj or £ directions is 
shown in Figure 4.1. In the figure, a 4 x 4 x 4 grid is shown in computational space for a three-dimensional 
problem. The circles and squares represent grid points at which intermediate values are computed during 
the first two ADI sweeps, and the triangles represent grid points at which final values are computed during 
the third ADI sweep. The intermediate values at r\ = 0 and at r\ = 1 are updated first. This is done using 
the same procedure as for non-periodic boundary conditions, described in Section 7.3 of Volume 1, but for 
i= 2 to Ni instead of Ni — 1, where i is the index in the £ direction. The values on the >f-£ edges (i.e., the 
four lines of intersection between the rj and £ boundary planes) are also updated over the same £ indices 
using the procedure described in Section 7.3 of Volume 1. Finally, the values in the £ = 0 plane are updated 

A A 

by setting Qi = Q A] at every point in the plane. 
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Figure 4.2 - Updating boundary values for periodic boundary conditions in the ij direction. 


The situation for a periodic boundary condition in the rj direction but not in the £ or £ directions is 
shown in Figure 4.2. In this case, the intermediate values at £ = 0 and at £ = 1 are updated first. This is 
done using the same procedure as for non-periodic boundary conditions, described in Section 7.3 of Volume 
1, but for y = 2 to N 2 instead of N 2 — 1, where j is the index in the y\ direction. The values on the £-£ edges 
(i.e., the four lines of intersection between the £ and £ boundary planes) are also updated over the same rj 
indices using the procedure described in Section 7.3 of Volume 1. Finally, the values in the y\ = 0 plane are 

A A 

updated by setting Ch = Qa 2 at every point in the plane. 
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Figure 4.3 - Updating boundary values for periodic boundary conditions in the £ direction. 


The situation for a periodic boundary condition in the £ direction but not in the £ or rj directions is 
shown in Figure 4.3. In this case, the intermediate values at £ = 0, £ = 1, tj = 0, and y\ = 1 are updated first. 
This is done using the same procedure as for non-periodic boundary conditions, described in Section 7.3 
of Volume 1, but for k = 2 to N$ instead of V 3 — 1, where k is the index in the £ direction. The values on 
the £->7 edges (i.e., the four lines of intersection between the £ and r\ boundary planes) are also updated over 
the same £ indices using the procedure described in Section 7.3 of Volume 1. Finally, the values in the 

£ = 0 plane are upuated by setting Qi = at every point in the plane. 
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Figure 4.4 - Updating boundary values for periodic boundary’ conditions in the § and tj directions. 

The situation for periodic boundary conditions in the £ and rj directions but not in the £ direction is 
shown in Figure 4.4. In this case, the only action needed is to update the values in the £ = 0 and rj = 0 

A A A A 

planes, by setting Qi = Qx x at every point in the £ = 0 plane, and Qi = Q^ 2 at every point in the r\ — 0 plane. 



Figure 4.5 - Updating boundary’ values for periodic boundary conditions in the £ and £ directions. 
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The situation for periodic boundary conditions in the £ and £ directions but not in the y\ direction is 
shown in Figure 4.5. In this case, the intermediate values at y\ — 0 and at yj — 1 are updated first. This is 
done using the same procedure as for non-periodic boundary conditions, described in Section 7.3 of Volume 
1 , but for / = 2 to A ; i instead of N\ — 1 , and for k = 2 to A 3 instead of V 3 — 1, where i and k are the indices 

in the £ and £ directions. The values in the £ = 0 plane are then updated by setting Qi = at every point 
in the plane except for the points (l,y, 1). Finally, the remaining points in the £ = 0 plane are updated by 

A A 

setting Qi = Q.y 3 . 



Figure 4.6 - Updating boundary values for periodic boundary conditions in the tj and £ directions. 


The situation for periodic boundary conditions in the rj and £ directions but not in the £ direction is 
shown in Figure 4.6. In this case, the intermediate values at £ = 0 and at £ = 1 are updated first. This is 
done using the same procedure as for non-periodic boundary conditions, described in Section 7.3 of Volume 
1 , but for j= 2 to N 2 instead of N 2 - 1 , and for k — 2 to A 3 instead of V 3 — 1 , where j and k are the indices 

in the rj and £ directions. The values in the rj = 0 plane are then updated by setting Qi = Q N2 at every point 
in the plane except for the points (/, 1, 1). Finally, the remaining points in the £ = 0 plane are updated by 

A A 

setting Qi = Q,v 3 
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Figure 4.7 - Updating boundary values for periodic boundary conditions in all three directions. 

The situation for periodic boundary conditions in all three coordinate directions is shown in Figure 4.7. 
In this case, the only action needed is to update the vMues in the £ = 0 and rj = 0 planes, by setting 

A A A A 

Qi = Qni in the £ = 0 plane and Qi = Qa 2 in the r\ — 0 plane. 

Remarks 

1. The comer values of p and E r are updated by linearly extrapolating from the two adjacent points in the 

tj, and C directions, and averaging the three results. Note that this extrapolation is done ^ compu- 
tational space. Grid packing in any direction is thus not taken into account. The comer values of the 
velocities are updated by doing the same type of extrapolation. Instead of averaging, however, the ex- 
trapolated velocity whose absolute value is lower is used. This was done to maintain no-slip at duct 
inlets and exits. 

2. Subroutines SGEFA and SGESL are Cray LINPACK routines. In general terms, if the Fortran arrays 
A and S represent A and S, where A is a square N by N matrix and S is a vector with N elements, and 
if the leading dimension of the Fortran array A is LDA, then the Fortran sequence 

call sgefa (a, Ida ,n, ipvt , inf o) 
call sgesl Ca , Ida ,n, ipvt , s, 0) 

computes A - 1 S, storing the result in S. 
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Subroutine COEFC 


P urpose 

Compute coefficients and source term for the continuity equation. 


DEL 

DTAU 

DXI, DETA, DZETA 
ETAX, ETAY, ETAZ, ETAT 
IBASE, ISTEP 

* IHSTAG 
ISWEEP 
IV 

12, 13 

JI 

METX, METY, METZ, METT 

NC 

NPTS 

NR, NRU, NRV, NRW, NET 

RHO, U, V, W 
RHOL 

* THC 

XIX, XIY, XIZ, XIT 

ZETAX, ZETAY, ZETAZ, 
ZETAT 


Computational grid spacing in sweep direction. 

Time step At. 

Computational grid spacing A£, A r\, and AC- 
Metric coefficients rj x , tj y , >h, and 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Flag for constant stagnation enthalpy option. 

Current ADI sweep number. 

Index in the "vectorized" direction, k- 

Grrid indices j and k, in the 17 and £ directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y, z, and t. 

Array index associated with the continuity equation. 

Number of grid points in the sweep direction, N. 

Array indices associated with the dependent variables p, pu, pv, 
pw, and Et- 

Static density p, and velocities u, v, and w, at time level n. 

Static density p from previous ADI sweep. 

Parameters <9, and 0 2 determining type of time differencing for the 
continuity equation. 

Metric coefficients £ r , £ z , and £,. 

Metric coefficients £ x , £„ £ z , and £,. 



Coefficient submatrices A, B, and C at interior points (row NC 
only). 

Source term subvector S at interior points (element NC only). 


Description 


Subroutine COEFC computes the coefficients and source term for the continuity equation. Equations 
(7.5a-c) in Volume 1 represent, in vector form, the five governing difference equations for the three ADI 

sweeps. The elements of the inviscid flux vectors E, F, and G are given in Section 2.0 of Volume 1 , and 
the elements of the viscous flux vectors E K „ E V2 , etc., are given in Appendix A of Volume 1. The Jacobian 
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coefficient matrices dE/<3Q, dE^/cQ, etc., are given in Section 4.0 of Volume 1. Using all of these 
equations, the differenced form of the continuity equation may be written for the three ADI sweeps as 19 


Sweep 1 (c direction) 


(1 + 0 2 )2A£ V 


5Ei \ 

- 7 T- AQf+,- 


-T ^7(^^V. + ^.)” + TTSr^-' 




In the above equations, the subscripts i, y, and k represent grid point indices in the and C directions. 
For notational convenience, terms without an explicitly written /, y , or k subscript are understood to be at 
i, j, or k. 

The vector of dependent variables is 

Q = -j[> pu pv pw E r f 
The appropriate elements of the flux vectors are given by 

E, = y [_puZ x + pv£ y + pw£ z + p£ f ] 

A 1 

Fj = y [purix + P vt 1y + P Wr lz + Pit] 

Gj = y [pwC* + pv^y + pw £ 7 + p£J 

The elements of the Jacobian coefficient matrix 5E/<5Q for the continuity equation are 

19 These equations are written assuming the energy equation is being solved. For a constant stagnation enthalpy case, 
the total energy E t would not appear as a dependent variable, and the Jacobian coefficient matrices would have 
only four elements. 
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«Kr *x 


Zy 0 ] 


5E, 

A 

aQ 

A 

The Jacobian coefficient matrices dTijdQ and <?Gi/<9Q have the same form as oEi/<3Q, but with £ re- 
placed by r\ and £, respectively. 


As an example of how these equations are translated into Fortran, consider the A {pujj) term on the left 

A A A 

hand side for the first sweep. This is the second element of Q, so using the second element in <5Ei/<3Q we 
get 

AtfV,I,NC,NRU) = - {l+d ^ 

B(IV,I,NC,NRU) = 0 

C(rV,I,NC,NRU) = (1 + g 2) ^ ( + 1 J, * 


In COEFC, the coefficients of the left hand side, or implicit, terms are defined first. The implicit terms 
for the second and third ADI sweeps have exactly the same form as for the first sweep, but with £ replaced 
by rf and f , respectively. By defining DEL, METX, METY, METZ, and METT as the grid spacing and 
metric coefficients in the sweep direction, the same coding can be used for all three sweeps. 

The source term, or right hand side, for the first sweep is defined next. -The difference formulas used to 
compute the source term are the same as those used for the implicit terms, and are presented in Section 5.0 
of Volume 1. This is followed by the coding for the source term for the second and third sweeps, which 
consists only of A p* or A p**. 

Remarks 


1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Section 
2.3. 

2. The subscripts m the Fortran variables A, B, C, and S may be confusing. The first subscript s the 
index in one of the non-sweep (i.e., "vectorized") directions, and the second subscript is the index in the 
sweep direction. For the first sweep the order is thus (12,11), for the second sweep the order is (11,12), 
and for the third sweep the order is (11,13). For sections of the code that apply to all three sweeps (i.e., 
the implicit terms), the first two subscripts are written as (IV, I). For sections of the code that apply 
only to the first sweep, the first two subscripts are written as (12,11). For sections that apply to the 
second and third sweeps, they are written as (11,1). The third subscript on A, B, C, and S corresponds 
to the equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for 
which A, B, or C is a coefficient. 
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Subroutine COEFE1 


Called by Calls Purpose 

EXEC Compute coefficients and first-sweep source term, except for cross- 

derivative viscous terms, for the energy equation. 


DEL 

DPDRHO, DPDRU, DPDRV, 
DPDRW, DPDET 

DTAU 

DTDRHO, DTDRU, DTDRV, 
DTDRW, DTDET 

DXI, DETA, DZETA 

ETAX, ETAY, ETAZ, ETAT 

ETL 

IBASE, ISTEP 

* IEULER 
ISWEEP 

* ITHIN 
IV 

12, 13 

JI 

METX, METY, METZ, METT 
MU, LA, KT 

NEN 

NPTS 

NR, NRU, NRV, NRW, NET 

P, T 
PRR 

* RER 

RHO, U, V, W, ET 

* THE 

XIX, XIY, XIZ, XIT 


Computational grid spacing in sweep direction. 

Derivatives dpjdp , dpld(pu ), dpjd(pv) 1 dpld(pw), and dpldE r . 

Time step At. 

Derivatives dTjdp, dTjd(pu), dTld(pv), dT/d(pw ), and dTjdE r . 

Computational grid spacing A£, A>j, and A£. 

Metric coefficients rj yy rf z , and 

Total energy Er from previous ADI sweep. 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Flag for Euler calculation. 

Current ADI sweep number. 

Flags for thin-layer option. 

Index in the "vectorized" direction, i v . 

Grid indices j and k, in the 17 and £ directions. 

Inverse Jacobian of the nonorthogonal grid transforma on, J~ L 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y, z, and 

Effective coefficient of viscosity p, effective second coefficient of 
viscosity A, and effective coefficient of thermal conductivity k at 
time level n. 

Array index associated with the energy equation. 

Number of grid points in the sweep direction, V. 

Array indices associated with the dependent variables p, pw, pv, 
pw, and £r- 

Static pressure p and temperature T at time level n. 

Reference Prandtl number Pr r . 

Reference Reynolds number Re r . 

Static density p, velocities u t v, and w, and total energy E T at time 
level n . 

Parameters d u d 2i and 0 3 determining type of time differencing for 
the energy equation. 

Metric coefficients £ x , and £ f . 
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ZETAX, ZETAY, ZETAZ, Metric coefficients £*, and 

ZETAT 

Output 

A, B, C 

S 


Description 

Subroutine C0EFE1 computes the coefficients and starts the computation of the first-sweep source term 
for the energy equation. The cross-derivative viscous terms are added to the first-sweep source term in 
subroutine COEFE2. Equations (7.5a-c) in Volume 1 represent, in vector form, the five governing differ- 

A A A 

ence equations for the three ADI sweeps. The elements of the in viscid flux vectors E, F, and G are given 
in Section 2.0 of Volume 1 , and the elements of the viscous flux vectors E n , Ey 2 , etc., are given in Appendix 

A of Volume 1. The Jacobian coefficient matrices dtjdQ, dEyJdQ, etc., are given in Section 4.0 of Volume 
1. Using all of these equations, the differenced form of the energy equation may be written for the three 
ADI sweeps as 

Sweep 1 (£ direction) 


Coefficient submatrices A, B, and C at interior points (row NEN 
only). 

First- sweep source term subvector S at interior points, except for 
the cross-derivative viscous terms (element NEN only). 


6, At 


A # U } LA L 

A (£r)/ + (i + 0 2 ) 2A£ 


5E S 

A 

5Q 


A * 

AQ< + 1 — 


/+ 1 


A 

5E S 

A 

<3Q 


AQ,-i 


i- 1 


#1 At 


■ [( fi - \ + JJ)V- iAQ*_ 1 - (fi- 1 + Vi +fi+ 1 )"& A Q* + (fi+ fi+ i)V+ > A Q,-+ 1] = 


(1+0 2 )2 V A{)‘ 

At (<5|E5 + <5,,F 5 +• <5 c G 5 )" + - [<5|(E^) 5 + ^(F Ki ) 5 + ^(G Kj ) 5 ]" 


+ ■ 


1+02 
(1 +0 3 )At 
1+0, 


l + 0i 


[<5j(Ejz 2 )s + 5^(F^) 5 + ^(G^]' — i + q [^|(E[/ 2 )s + ^(F, 2 ) 5 + <5{(Gf/ 2 ) 5 ] 


n — 1 


_ 02 _ 

1 + 0 - 


■A E 


n - 1 


Sweep 2 (n direction) 


A ** 

A(E r )y 


0 , At 


(1 + 0 2 )2A»/ 


A 

d¥ c 


dQ 


j + 1 


An** I dFs 

AQy + 1 - 

dQ 


AQy-, 


j- 1 


— , + fits';- A vj+fj* MAT +{/j+ / j+m* ,aq;; j 

(l + 0 2 )2(A n ) 2 


AE t 
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Sweep 3 (C direction) 

M^rlk + 


0,At 


£*« 

A£ 


(i + e 2 )2AC 

At 

(1 + 0 2 )2(AQ 2 

** 

T 


A 

0G 5 

. A 

5Q 


AQa + i — I 


A 

dG 5 

A - 

dQ 


AQ*_, 


■[</*_, + /* « _ iAQj[ + 2f k +f k + ,)^AQ2 + (Ji + f k + + 1 AQ 


In the above equations, the subscripts i, y, and k represent grid point indices in the £, r\, and £ directions. 
For notational convenience, terms without an explicitly written i,y\ or /c subscript are understood to be at 
z, y, or On the left hand side, /is the coefficient of 5/3£ (or dldrj or d/5£, depending on the sweep) in the 

dEvJdQ (or dFyJdQ or dGvJdQ) Jacobian coefficient matrix. Similarly, g is the term in the parentheses 
following djd£ (or djdr] or d/d£) in the dE^/dQ (or dF kj/ 3Q or dG^/dQ) Jacobian coefficient matrix. 


The vector of dependent variables is 

Q = y [p pu pv pw E T ~f 

The appropriate elements of the inviscid flux vectors are given by 

E 5 = y [_{E t + p)ut x + (Ej + pHy + (E t + P)wt 2 + E r £ J 
F 5 = y [(£ 7 - + p)m x + (E t + p)vrj y + ( E T +p)wri 2 + E T rj l '] 
G 5 = y [(£ 7 - + jE>)uCjc + (£r + P) v ^y + (£r+ P) w ^z + 


The approp..ate elements of the non-cross derivative viscous flux vectors are 

(2M +i) ie x {u\ + e y (v\ + &w 2 ) ? ] + (M + mjyMt + 


(E*)s 




+ y [d ( y2 + + $“ 2 + w \ + d (« 2 + v2 )?] + -£-ltl + Zl + 

F Fi ) 5 = y yy j (2 */ — + ^(v 2 )^ + + (p + + Vfc(« w ) ir + t 1y r l z (™) v '] 

+ y [»/i( v2 + w ' 2 ) f? + n y(v 2 + W \ + + V \] + y~T (*1 2 + ^ + 

• ) 5 = yy~r j (2 ^2 t&A + $ y2) f + d(w\] + + ; -)K*M w )c + 


( G P,)5 


+ f [s^(v 2 + W 2 ) c + C> 2 + w\ + C^ 2 + v\] + -^{tl + Z 2 y + C 2 )£ c } 


The terms involving Ey 2 , F k 2) and G^ 2 are the cross derivative viscous source terms, and are computed 
in subroutine COEFE2. 
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*r S 


The elements of the Jacobian coefficient matrix 5E/5Q for the inviscid terms in the energy equation are 


A 

3E 5 

A 

3Q 




tey+fl 


d_P 

d(pv) 


fli'+fi 


d_P_ 

d(pw) 


tt+fl 



_dp_ 

3E t 


) 


where / = u£ x + v£, + w£ x and f 2 = (£r + p)lp- 


The elements of the Jacobian coefficient matrix SEyJdQ for the viscous terms are 



otjur = (2p + X)£ x 2 + p£ y 2 + p£ z 

*yy = pix + ( 2 m + ^)£ y + P-d.2 

Ct 22 = + ply + (2p + ?.)%2 


a xy = (p + Wxty 

a X2 = ip "b 

a yz - Cm + l)$yZz 


«0 = ^r(Z X 2 + Zy 2 + tz 2 ) 

A A A A aaaa 

The Jacobian coefficient matrices <?F 5 /3Q and 5(F v\)s/dQ have the same form as <3E s/3Q and 5 (Eki)s/3Q , 

A A A A 

but with | replaced by ij. Similarly, the Jacobian coefficient matrices dG s jdQ and d(G Vl )sldQ have the same 
form as dTLsjdQ and 5 (Eki )s/dQ, but with £ replaced by £■ 
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As an example of how these equations are translated into Fortran, consider the A (puff) term on the left 

hand side for the first sweep. This is the second element of Q, so using the second element in dlbsjdQ we 
get for the inviscid term 


AfIV.TNENjNRU) = — 


e \ ( Ar )iJ,k ( E T + P 


(I + 0 2 )2A£ 


(^) 


+ 

i - ! J, k L 


(u£ x + v£ + w£ z ) 


dp 


d{pu) 




B(IV,I,NEN,NRU) = 0 


C(IV,I,NEN,NRU) = 


6 \ ( AT )i,j,k 

(i + e 2 )2At 


*[ 

. v 'i+l,j,k L 


(«£* + v£ y + w£ z ) 


dp 


d(pu) 


-*i + 1 J t k J 


For the viscous terms on the left hand side, we use the second element in 5(Ev l ) 5 /dQ, which is 



There are four terms in that element. Thus, in turn, /= <x xx IRe rt cc x ,!Re n a«//?e r , and ao lRe n and g — ujp, 
vjp f wjp i and dT/d(pw). To add the viscous contribution to this part of the A coefficient submatrix, we 
therefore set 


A(rV,I,NEN,NRU) = A(IV,I,NEN,NRU) 




- C(«jcO/ — \J,k + /j(jr) + — 1J,*+ p ) 

y J ' ' i — \,j,k i — 1 

[( a xz); - \,j, k + ( a xz)u, *]( ’r) i _ l j k + K«o)i - u . k + (“o kj, ~^u) ) 


(1 + 6> 2 )2(A 0 Re, 

+ 


j,k 


Similar equations may be written for the B and C coefficient submatrices. 

In COEFEi, the coefficients of the left hand side, or implicit, terms are defined first. The impucit terms 
for the second and third ADI sweeps have exactly the same form as for the first sweep, but with £ replaced 
by tj and C» respectively. By defining DEL, METX, METY, METZ, and METT as the grid spacing and 
metric coefficients in the sweep direction, the same coding can be used for all three sweeps. 


The non-cross-derivative part of the source term, or right hand side, for the first sweep is defined next. 
The difference formulas used to compute the source term are the same as those used for the implicit terms, 
and are presented in Section 5.0 of Volume 1. 


Remarks 


1. This subroutine uses one -dimensional addressing of three-dimensional arrays, as described in Section 
2.3. 

2. The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in one of the non-sweep (i.e., "vectorized'^ directions, and the second subscript is the index in the 
sweep direction. For the first sweep the order is thus (12,11), for the second sweep the order is (11,12), 
and for the third sweep the order is (11,13). For sections of the code that apply to all three sweeps (i.e., 
the implicit terms), the first two subscripts are written as (IV, I). For sections of the code that apply 
only to the first sweep, the first two subscripts are written as (12,11). For sections that apply to the 
second and third sweeps, they are written as (11,1). The third subscript on A, B, C, and S corresponds 
to the equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for 
which A, B, or C is a coefficient. 
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3. The Euler option is implemented simply by skipping the calculation of the coefficients and source terms 
for the viscous and heat conduction terms. 

4. The thin-layer option is implemented by skipping the calculation of the coefficients and source terms 
for the viscous and heat conduction terms containing derivatives in the specified direction. 

5. The computation of the first-sweep source term was split in two to keep the energy equation subroutine 
from being even longer than it already is. 
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DTAU 

DXI, DETA, DZETA 
ETAX, ETAY, ETAZ 
IBASE, ISTEP 


♦ IEULER 
ISWEEP 

* ITHIN 
12, 13 
JI 

MU, LA, KT 


NEN 

NPTS 

T 

PRR 

* RER 
S 

* THE 


TL 

U, V, W, ET 
UL, VL, WL, ETL 


XIX, XIY, XIZ 
ZETAX, ZETAY, ZETAZ 



Time step At. 

Computational grid spacing A£, A»j, and AC- 
Metric coefficients rj x , rj y , and rj z . 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Flag for Euler calculation. 

Current ADI sweep number. 

Flags for thin-layer option. 

Grid indices j and k, in the ij and £ directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J~ l . 

Effective coefficient of viscosity #i, effective second coefficient of 
viscosity 2, and effective coefficient of thermal conductivity k at 
time level n. 

Array index associated with the energy equation. 

Number of grid points in the sweep direction, N. 

Static temperature T at time level n. 

Reference Prandtl number Pr,. 

Reference Reynolds number Re,. 

First-sweep source term subvector S at interior points, except for 
the cross-derivative viscous terms (element NEN only). 

Parameters $ u 9 2 , and 0 3 determining type of time differencing for 
the energy equation. 

Static temperature T from previous ADI sweep. 

Velocities u, v, and w, and total energy E r at time level n. 

Velocities u, v, and w, and total energy E T from previous ADI 
sweep. 

Metric coefficients £*, £,, and £ z . 

Metric coefficients £*, and £ z . 

Source term subvector S at interior points (element NEN only). 


Description 


Subroutine C0EFE2 finishes the computation of the first-sweep source term for the energy equation 
by adding the cross-derivative terms. It also computes the second- and third-sweep source terms. The 
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differenced form of the energy equation for the three ADI sweeps is presented in the description of sub- 
routine COEFE1. 

The appropriate elements of the cross derivative viscous flux vectors are 

(fcvjs = + CjcM*;) + ZyilyWr, + Cj,w c ) + + C z ww £ )] 

+ '^ x {y] x uu n + + CjcWW; + C y wv c + C^) 

+ ityirixVU,, + rjyW^ + r, z jw, + C x v« £ + C/v £ + C z vw £ ) 

+ + »Jy>% + + CjcWW £ + C y wv £ + C z ww £ ) 

+ tfjfayVUq + *IjC% + »fz WU >j + ^X W r, + Cy 1 ^ + C X VV £ + C 7 WU £ + C X WW £ ) 

+ ntyfayliu^ + f] x UV v + tj z wv v + rjyWW^ + CyWW £ + C X WV £ + C 7 wv £ + C y lW { ) 

+ n^ 2 {r) z uu v + rj x uw v + *I 2 + riyVW ^ + C x ^ + C z vv £ + C y vw £ ) 

+ -^T (£jc»7jc + £y»ty + ZzVz^r, + (£x£x + £/y + 

(Fk 2 )s = y-^-{ 2 M[nx(^^ + Cx"^) + 1y(^ w { + Cy w {) + + 

+ Xtl/i x UU^ + ZyUVf + + C x uu Q + Cj,wv £ + t z uw Q ) 

+ XtiyiZxVUf + + ^vwj + C x vw £ + £j,w £ + C z vw £ ) 

+ ^(c^WW, + + ^WW, + C X WU £ + CyWV £ -)- C Z WW £ ) 

+ M xiZyVU^ + + ^WU ? + + (, y VU^ + C X VV £ -I- C Z WU £ + C X WW £ ) 

+ MydyUUf + + ^wv £ + {jW 5 4- + C x wv £ + C Z WV £ + 

+ jJ.r\ z {!^ z UU^ + C X 1AV> + £ z v>> + <*^VW £ + + C X WW; + C Z VV £ + Cy w {) 

+ -j^T (*tx£x + »?/y + ^z) 7 ^ + ~j^T (»/x£x + »/yC y + 

(G Kj ) 5 = y^- |2 mK x (^ + *x""j) + C y (V%7 + *y w «> + WV™, + ^{)] 

+ KMxUUr, + n y w n + nz"*, + £x«“j + Zy™! + 

+ KyhxVUy, + VyWr, + n :% + + iyW { + {jMj) 

+ + riyWV^ + r tz ww v + ^ 4- fyiw { + {^) 

+ nZ x (y y vu n + Vx^r, + v 2 wu t j + Vx^n + ^ vu { + ^x w { + ^z wu { + 

+ nCyfayWr} + Ix^t, + >lz% + + ^x m ’| + + ^y W j) 

+ n^ z {r\ z uu n + + nz w n + r\yVW n + + Z x uw^ + + iyVWf) 

+ -J^r (ZxVx + ZyVy + Ztfz) T r, + ^ X Z X + ZyZy + C 2 £ 2 )T,j 

The cross-derivative part of the first-sweep source term is computed first. The difference formulas used 
to compute the source term are the same as those used for the implicit terms, and are presented in Section 
5.0 of Volume 1. This is followed by the coding for the source term for the second and third sweeps, which 

consists only of A £r or A tr" ■ 
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Remarks 


] This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Section 
2.3. 

2. The subscripts on the Fortran variable S may be confusing. The first subscript is the index in one of 
the non- sweep (i.e., ^vectorized 7 ) directions, and the second subscript is the index in the sweep direction. 
For the first sweep the order is thus (12,11), for the second sweep the order is (11,12), and for the third 
sweep the order is (11,13). For sections of the code that apply only to the first sweep, the first two 
subscripts are written as (12,1 1). For sections that apply to the second and third sweeps, they are written 
as (11,1). The third subscript on S corresponds to the equation. 

3. The Euler option is implemented simply by skipping the calculation of the source terms for the viscous 
and heat conduction terms. 

4. The thin-layer option is implemented by skipping the calculation of the coefficients and source terms 
for the viscous and heat conduction terms containing derivatives in the specified direction. 
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Subroutine COEFX 

Called by 

Calls 

Purpose 

EXEC 


Compute coefficients and source term for the jc-momentum equation. 


DEL 

DPDRHO, DPDRU, DPDRV, 
DPDRW, DPDET 

DTAU 

DXI, DETA, DZETA 
ETAX, ETAY, ETAZ, ETAT 
IBASE, ISTEP 

* IEULER 

* IHSTAG 
ISWEEP 

* ITHIN 
IV 

12, 13 
JI 

METX, METY, METZ, METT 

MU, LA 

NPTS 

NR, NRU, NRV, NRW, NET 


NXM 

P 

* RER 

RHO, U, V, W 
RHOL, UL, VL, WL 

* THX 

XIX, XIY, XIZ, XIT 

ZETAX, ZETAY, ZETAZ, 
ZETAT 


Computational grid spacing in sweep direction. 

Derivatives dp! dp, dpjd{pu), dpjd(pv), dpld{pw), and dpjdEr- 

Time step At. 

Computational grid spacing A£, Arj, and AC- 
Metric coefficients tj x , >/*, and rj t . 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Flag for Euler calculation. 

Flag for constant stagnation enthalpy option. 

Current ADI sweep number. 

Flags for thin-layer option. 

Index in the "vectorized" direction, 

Grid indices j and k, in the »j and C directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J ~ '. 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y, z, and t. 

Effective coefficient of viscosity p and effective second coefficient 
of viscosity X at time level n. 

Number of grid points in the sweep direction, V. 

Array indices associated with the dependent variables p, pu , pv, 
pw, and E t . 

Array index associated with the x-momentum equation. 

Static pressure p at time level n. 

Reference Reynolds number Re r . 

Static density p, and velocities u, v, and w at time level n. 

Static density p, and velocities u, v, and w from previous ADI 
sweep. 

Parameters 9 U 0 2 , and determining type of time differencing for 
the x-momentum equation. 

Metric coefficients £ z , and d ; . 

Metric coefficients C*. C y , Cz, and Cr- 
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Output 

A, B, C Coefficient submatrices A, B, and C at interior points (row 

NXM only). 

S Source term subvector S at interior points (element NXM only). 

Description 

Subroutine COEFX computes the coefficients and source term for the x-momentum equation. 
Equations (7.5a-c) in Volume 1 represent, in vector form, the five governing difference equations for the 

three ADI sweeps. The elements of the inviscid flux vectors E, F, and G are given in Section 2.0 of Volume 

I, and the elements of the viscous flux vectors Evj, Evj, etc., are given in Appendix A of Volume 1. The 

Jacobian coefficient matrices <9E/3Q, 5E vJ8Q, etc., are given in Section 4.0 of Volume 1. Using all of these 
equations, the differenced form of the v- momentum equation may be wntten for the three ADI sweeps 
as 20 

Sweep 1 (c direction) 


a(A)J + 


0! At 

(1 + 0 2 )2A^ 


8 E2 

A 

8Q 


AQf + 1 ~ 


i + 1 


8^2 

8Q 


AQf- i 


i - 1 


0 jAt 


1 + fi fii - 1 AQ*_ i - (^_i + y’i+f l + \) n gi&Qi +(/i + fi+ \)"g?+ i A Q; + i] - 

(1 + 0 2 )2(A£) Z 

AT (^{^2 + 2 + 5 C G 2)" + AT 


1 +0i 


1 + 0 : 


' 2 + ^( G t',)2]” 


+ ~ i + , g3 ; A ~ ~ j * + f [tf&vjl + 5 r,(^ V 2 h + 


0, At 


ul"- 1 


1 + ?_ 

, ^2 a / A — 1 

+ 77s7 4( ' , “ ) 


Sweep 2 (>? direction) 


0 j At 


A(pu)y + (1 + ^ 2 )2 Ajj 


A 

0F 2 

A 

0Q 


y + t 


0 1 At 


(1 + 0 2 )2(A»jT 



A 

5F 2 


A 

0Q 

A ** 

. l A Qy_i 



A** ' 

AQ/-1 


J - 1 


A(pu) 


20 These equations are written assuming the energy equation is being solved. For a constant stagnation enthalpy case, 
the total energy Ej would not appear as a dependent variable, and the Jacobian coefficient matrices would have 
only four elements. 
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Sweep 3 (C direction) 


a(A)2 + 


0|At 


(1 + 6» 2 )2AC 
6>;At 

(1 + 9 2 ) 2 (ACy 


A 

dG 2 

A 

SQ 


A Ql 


+ l 


A 

3G 2 

A 

5Q 


A „ 

*Q2-i 


■ [(/„ -, + A )%”- ,*Q2 _ , - (/» . , + 2f k +/ j+ ,)" a "AQ2 + (ft + ft* i>V + 1*02+ 1] 


A ** 

A(pw) 


In the above equations, the subscripts /, j, and k represent grid point indices in the rj, and C directions. 
For notational convenience, terms without an explicitly written /, J, or k subscript are understood to be at 
or k . On the left hand side, /is the coefficient of 3/3£ (or 3/3^ or 3/3 C, depending on the sweep) in the 

3E vJdQ (or 3F vJdQ or dG v JdQ) Jacobian coefficient matrix. Similarly, g is the term in the parentheses 
following 3/3£ (or d/dr} or 3/3£) in the 3 Ekj/ 3Q (or 3F^j/3Q or 3 Gkj/ 3Q) Jacobian coefficient matrix. 


The vector of dependent variables is 

A 1 Y 

Q = y l> pu pv pw E t ] 


The appropriate elements of the inviscid flux vectors are given by 


%, = y [{pi? + p)£ x + pwZy + PUW{ 2 + pttZJ 

F 2 = y [{pi? +phx + P Wr ly + P uwy \z + P^ll 
G 2 = y [{pi? + p)£ x + pUvCy + pUwC z + pu£J 


The appropriate elements of the non-cross derivative viscous flux vectors are 

(E K( ) 2 = y yy + /.£ x (£ x Uf + + ( z w^) + pl y {l y u^ + ^ x v^) + p^ z {( z u^ + ^w^)] 

(F^) 2 = y yy + V-? + >?z%) + + *x\) + + 

(G Vi ) 2 = y yy [2 fifin' + KjfjLjPt + + C z w c ) + pC/Cft + tx v ;) + + C* w {)] 

And the appropriate elements of the cross derivative viscous flux vectors are 

( e i/ 2 )2 = *y yy + tx u d + ^x( r ix u r, + Vn + v z w v + + ^ v ’s + 

+ P-ZyiXyUn + Vx v r, + £y u £ + Cjc v {) + + ’Ijc w r; + + 


(F^h = y yy + £x u t? + l*lx(Zx u s + £y v £ + ^ A + £y v ; + Cz w {) 

+ P*ty(Z/*{ + £x V J + CA + W + WAt&l + Zx W S + CA + Ca c )] 
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[2^ x (*lx U ri + + ty V ?J + ^2% + + £> V { “*" ^Z W ^) 

+ MCy(V^| + ^ + { * V {) + A + *k w * + ^ A + ^JC W f)] 


The elements of 
equation are 


A A 

the Jacobian coefficient matrix 3E/3Q for the inviscid terms in the x-momentum 

^ = \_~W* x ~ ufl ^ +fl + u ^ + K^)^ *y + lok* x U ^ z+ ~d^w)^ x ~dE^**\ 

where f = u£ x + + w£ z . 

A A 

The elements of the Jacobian coefficient matrix dTLy l ldQ for the viscous terms are 

d(Ej/,)2 1 


5Q 


Re r 


( 

^ * -2-(-L\ 

a -i-l 

'_L\ 

a JL/±^ 

1 

o 

V SQ 

) ** dt\f> ) 

’ 21 

^ d£ ' 

y P ) 

** 3? \ P / 


where 


/ ^ ■ 

1 J-( JL\_ a JL(- L\_ 

--s-(f) 

V 5 Q 

J - X* d£ \ p ) a xy d£ \ p ) 


7 21 



a xx = (2p + A)i x 2 + tf y 2 + pZ z 2 



a xy = (M 4- 

- 


a xz (m + 

aaaa a a a a 

The Jacobian v; 'efficient matrices dFydQ and ^(FVj^/SQ have the same form as 5E 2 /dQ and 

A A A A 

but with £ replaced by > 7 . Similarly, the Jacobian coefficient matrices 3G 2 /5Q and 5(Gy,) 2 /3Q have the sam 
form as 3E 2 /3Q and 3(E Kl ) 2 /3Q, but with £ replaced by £. 

As an example of how these equations are translated into Fortran, consider the A (pujJ) term on the lei 

hand side for the first sweep. This is the second element of Q, so using the second element in <3E 2 /<3Q, am 
including the A (pu)* term, we get for the inviscid term 

»i(At ) Uj , k 

A(IV,1,NXM,NRU) = - ( , ~ gJ2A{ 


dr)i - 1 ,j, k + v ’>" + - 1 ,/, * + ( u ^x)i - 1 ,j, k + ^ d(pu) 


B(IV,I,NXM,NRU) = 1 


mAj.k 

C(IV,I,NXM,NRU)- - + ? ^ 


Jp_ 

d( P u) 


(w), + l,j, k + («£* + v ^y + w Qi + 1 ,j, k + (“Zxh + 1 ,j, k + ( 

A A 

For the viscous terms on the left hand side, we use the second element in d(1Lvi)i /<3Q, which is 


.) 

7 1 + 1 , 7 , 
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Thus / = a xx IRe r and g = 1/p. To add the viscous contribution to this part of the A coefficient submatrix, 
we therefore set 


A(IY,I,NXM,NRU) = A(IYJ,NXM,NRU) - 


(1 + 0 2 )2(A tfRe r 



Similar equations may be written for the B and C coefficient submatrices. 

In COEFX, the coefficients of the left hand side, or implicit, terms are defined first. The implicit terms 
for the second and third ADI sweeps have exactly the same form as for the first sweep, but with £ replaced 
by i] and £, respectively. By defining DEL, METX, METY, METZ, and METT as the grid spacing and 
metric coefficients in the sweep direction, the same coding can be used for all three sweeps. 

The source term, or right hand side, for the first sweep is defined next. The difference formulas used to 
compute the source term are the same as those used for the implicit terms, and are presented in Section 5.0 
of Volume 1. This is followed bv the coding for the source term for the second and third sweeps, which 
consists only of A (pu)* or A(pu)* . 

Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Section 
2.3. 

2. The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in one of the non-sweep (i.e., "vectorized") directions, and the second subscript is the index in the 
sweep direction. For the first sweep the order is thus (12,11), for the second sweep the order is (11,12), 
and for the third sweep the order is (11,13). For sections of the code that apply to all three sweeps (i.e., 
the implicit terms), the first two subscripts are written as (IV, I). For sections of the code that apply 
only to the first sweep, the first two subscripts are written as (12,11). For sections that apply to the 
second and third sweeps, they are written as (11,1). The third subscript on A, B, C, and S corresponds 
to the equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for 
which A, B, or C is a coefficient. 

3. The Euler option is implemented simply by skipping the calculation of the coefficients and source terms 
for the viscous terms. 

4. The thin-layer option is implemented by skipping the calculation of the coefficients and source erms 
for the viscous terms containing derivatives in the specified direction. 
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Subroutine COEFY 


Purpose 

Compute coefficients and source term for the y-momentum equation. 


DEL 

DPDRHO, DPDRU, DPDRV, 
DPDRW, DPDET 

DTAU 

DXI, DETA, DZETA 
ETAX, ETAY, ETAZ, ETAT 
IBASE, ISTEP 

* IEULER 

* IHSTAG 
ISWEEP 

* ITHIN 
IV 

12, 13 

JI 

METX, METY, METZ, METT 

MU, LA 

NPTS 

NR, NRU, NRV, NRW, NET 

NYM 

P 

* RER 

RHO, U, V, W 
RHOL, UL, VL, WL 

* THY 

XIX, XIY, XIZ, XIT 

ZETAX, ZETAY, ZETAZ, 
ZETAT 


Computational grid spacing in sweep direction. 

Derivatives dpjdp, dpjd(pu), dpjd(pv), dpld(pw), and dpjdEr- 

Time step At. 

Computational grid spacing A£, A»j, and A£. 

Metric coefficients rj x , rj y , 77 z , and >/,. 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Flag for Euler calculation. 

Flag for constant stagnation enthalpy option. 

Current ADI sweep number. 

Flags for thin-layer option. 

Index in the "vectorized" direction, i,. 

Grid indices j and k, in the rj and £ directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J ~ 1 • 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y, z, and t. 

Effective coefficient of viscosity p and effective second coefficient 
of viscosity X at time level n. 

Number of grid points in the sweep direction, N. 

Array indices associated with the dependent variables p , pw, pv, 
pw, and Et- 

Array index associated with the y-momentum equation. 

Static pressure p at time level rt. 

Reference Reynolds number Re r . 

Static density p, and velocities «, v, and w at time level n. 

Static density p, and velocities u, v, and w from previous ADI 
sweep. 

Parameters 0 ,, 0 2 , and 83 determining type of time differencing for 
the y-momentum equation. 

Metric coefficients £„ £ 2 , and £ t . 

Metric coefficients £*, £*, and £,. 
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Output 

A, B, C Coefficient submatrices A, B, and C at interior points (row 

NYM only). 

S Source term subvector S at interior points (element NYM only). 

Description 

Subroutine COEFY computes the coefficients and source term for the ^-momentum equation. 
Equations (7.5a-c) in Volume 1 represent, in vector form, the five governing difference equations for the 

A A A 

three ADI sweeps. The elements of the inviscid flux vectors E, F, and G are given in Section 2.0 of Volume 

A A 

1, and the elements of the viscous flux vectors E^, Ek 2 » etc., are given in Appendix A of Volume 1. The 

A A A A 

Jacobian coefficient matrices <3E/<3Q, <3E vJdQ, etc., are given in Section 4.0 of Volume 1. Using all of these 
equations, the differenced form of the j-momentum equation may be written for the three ADI sweeps 
as 21 

Sweep 1 (£ direction) 


. . A . * 

A (pv\ + 


0,At 


(1+0 2 )2A£ 


0,At 


A 

<5E 3 

A 

dQ 


A Q/ +1 - 


i'+l 


<3E 3 

A 

dQ 


A* 

AQ/_, 


i- 1 


■ [ifi- 1 + i AQ*_ , - {fi- X + V, +f i+ ,)V AQ* + a + f i+ ,)"*?+ ,AQ* + ,] = 


(i + 0 2 )2(Air 

(<*{^3 + ^*3 + ifrY + T+V” [^{(^>3 + < V I V 1 )3 + 


1+0, 


+ (1 - . + .^ T - [«5j(E K2 ) 3 + S n ( Fy 2 ) 3 + [6 s (Ey ) 3 + <5 n (F^ 2 ) 3 + " 1 


+ ■ 


1 + 0 2 
0 2 


1 + 0 , 


aCpV 1 


Sweep 2 (ri direction) 


A ** 

A(pv). + 


0] At 


(1 + 


A 

dQ 


AQ/ + 1 ~ 


0F 3 

A 

0Q 


AQ/-, 


0! At 

(1 + 0 2 )2(A>7) 3 


7+1 ' ' j ~ X 

\ifj- \ + fj) n Sj- lAQ /_ 1 - (fj- 1 + 2 fj+/j+ \fgjb Qj +(fj+ fj+ 1 ) n gj+ iAQ/+ ,] 


A(pv) 


21 These equations are written assuming the energy equation is being solved. For a constant stagnation enthalpy case, 
the total energy Ej would not appear as a dependent variable, and the Jacobian coefficient matrices would have 
only four elements. 
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Sweep 3 (£ direction) 


&(p v )j + (i + g 2 )2AC 




A 

dG 3 

A 

3Q 


AQ* + 1 - 


/£+ 1 


<5G 3 

A 

dQ 


AQ”_, 


*- 1 


(1 + 0 2 )2(AQ‘‘ 


' [(A - 1 + A) &- l^Qy — 1 (A - 1 + % + A + l) + (A + A + l) Zk + l^Q/c+ l] 


A ** 

A(pv) 


In the above equations, the subscripts i, j, and k represent grid point indices in the £, >/, and C directions. 
For notational convenience, terms without an explicitly written i,j, or k subscript are understood to be at 
i,j, or k. On the left hand side, /is the coefficient of djd £ (or djdt] or <3/ SC, depending on the sweep) in the 

dEpi/dQ (or dFvJdQ or dGvJdQ) Jacobian coefficient matrix. Similarly, g is the term in the parentheses 

following dj< 3£ (or djdrj or djdQ in the dEyJdQ (or dFyJdQ or dGyJdQ) Jacobian coefficient matrix. 


The vector of dependent variables is 

A 1 j> 

Q = y[p p« P v P w e t\ 


The appropriate elements of the inviscid flux vectors are given by 

E 3 = y \_puvt; x + (pv 2 + p)l y + pvw{ 2 + pv£J 
F 3 = y lpimj x + (pv 2 + p)rj y + pvwrt 2 + pvtjJ 
G 3 = y \_puvC. x + (pv 2 + p)Cy + p VH'C 2 + pvCJ 


The appropriate elements of the non-cross derivative viscous flux vectors are 


(E^) 3 =yyy [2pCyV, + + { y v { + £,w { ) + rfjtf/if + + pC 7 (C^ + f y w { j\ 

(F I/,)3 = y -^T [ 2 PV’>, + + Vt + + Wjh&i + IxV + MA’IzVr, + lyWr,)] 

(Gy t ) 3 = yyy [2pCy c + AC y (Cjt^ + + C 7 w c ) + pC x {tyU Q + C,v c ) + pC 7 (C 7 v ? + C,w { )] 

And the appropriate elements of the cross derivative viscous flux vectors are 

(Fp 2 )3 = y yy + Cyr) + A^yfaxii^ + ^v^ + + Cx u f + 4- 

+ PZ X (ly U n + V x v r, + + C*v c ) + p£z(Vz V r, + ty^r, + ^Z V Q + Cy w {)] 


(F y 2 ) 3 = y yy [2py(£y { + CyVj) + + £ y Vj + £ 2 w ? + + C/( + Cz^) 

+ P*lx(Zy u > + + Cjc v c) + M»Jz(£z v ? + Zy w i + ^ + Cy w c)] 
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A 1 1 

i Q y*- 7 ik 


[2fx£y(Vi? + £j,V f ) + Ky{nx U r, + V«? + + ^ + V? + 

+ JlCxfajft, + Vi, + £y“{ + ijc v {) + + V'f + ** V f + 


The elements of the Jacobian coefficient matrix 3E/3Q for the inviscid terms in the j^-momentum 
equation are 


^3 _r 

dQ L 


dp 


dp 


dp 


Zy~ v A v( x + -Tr-jri y ^+/i+v^ + 1 7-r^ v^ + 




L 


dp 


dp 'y-v i '** ' 5(p«) V w ' -y- 3( P v) V ’ 3(pw) ** dE T y 


where fi = u$ x + v£ y 4- w£ z . 

A A 

The elements of the Jacobian coefficient matrix 3Ey,/3Q for the viscous terms are 


A 

dQ 


1 




A 

SEi 


dQ 


*xy 


d$ 


(i) a yy~k(i) 0 


31 


where 


dE Vi 

A 

dQ 


= ~ a ^{f)~ cl yy~k(f)~^~k(f ) 


31 


a xy ” 0* + 

“yx = + (2^ + /l -)£_y 2 + 

CXyj = (^t + 

A A A A A A A A 

The Jacobian coefficient matrices <3F 3 /3Q and 3 (F k,) 3 /3Q have the same form as 3E 3 /3Q and 3(Ey„j/3Q, 

A A A A 

but with ^ replaced by ij. Similarly, the Jacobian coefficient matrices <5G 3 /3Q and 3(Gy,) 3 /3Q have the same 
form as 3E 3 /5Q and 3(Ei/,) 3 /3Q, but with £ replaced by £. 

As an example of how these equations are translated into Fortran, consider the A(pulJ) term on the left 
hand side for the first sweep. This is the second element of Q, so using the second element in <3E 3 /<3Q, we 
get for the inviscid term 


A(IY,I,NYM,NRU) = - 


8 \ ( At )z,;,* 

(\ + e 2 )2AQ 


(vZx)i-\J,k + 


( d(pu) ^). 


B(IV,I,NYM,NRU) = 0 


C(IV,I,NYM,NRU) = 


(1+0 2 )2A£ 


Kjt)/+i,j,t + ( a(p«) M 

\ 'i+\,j,kj 


For the viscous terms on the left hand side, we use the second element in d(E n ) 3 /<?Q, which is 

1 JL/_L\ 

Re r dt\P ) 
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Thus/= a X ylRe r and g = 1 /p. To add the viscous contribution to this part of the A coefficient submatrix, 
we therefore set 


Similar equations may be written for the B and C coefficient submatrices. 

In COEFY, the coefficients of the left hand side, or implicit, terms are defined first. The implicit terms 
for the second and third ADI sweeps have exactly the same form as for the first sweep, but with £ replaced 
by it and £, respectively. By defining DEL, METX, METY, METZ, and METT as the grid spacing and 
metric coefficients in the sweep direction, the same coding can be used for all three sweeps. 

The source term, or right hand side, for the first sweep is defined next. The difference formulas used to 
compute the source term are the same as those used for the implicit terms, and are presented in Section 5.0 
of Volume 1. This is followed by the coding for the source term for the second and third sweeps, which 
consists only of A(pv)* or A(pv)**. 

Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Section 
2.3. 

2. The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in one of the non-sweep (i.e., "vectorized") directions, and the second subscript is the index in the 
sweep, direction. For the first sweep the order is thus (12,11), for the second sweep the order is (11,12), 
and for the third sweep the order is (11,13). For sections of the code that apply to all three sweeps (i.e., 
the implicit terms), the first two subscripts are written as (IV, I). For sections of the code that apply 
only to the first sweep, the first two subscripts are written as (12,11). For sections that apply to the 
second and third sweeps, they are written as (11,1). The third subscript on A, B, C, and S corresponds 
to the equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for 
which A, B, or C is a coefficient. 

3 The Euler option is implemented simply by skipping the calculation of the coefficients and source terms 
for the viscous terms. 

4. The thin-I yer option is implemented by skipping the calculation of the coefficients and sc vrce terms 
for the viscous terms containing derivatives in the specified direction. 


A(IV,I,NYM,NRU) = A(IV,I,NYM,NRU) 


r/ \ i \ ~\f 

5 L( a xy)/ - 1 J t k + \ a xyhj, ki l 

(1 + 0 2 )2(A 0Re r . V 
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Subroutine COEFZ 

Called by 

Calls 

Purpose 

EXEC 


Compute coefficients and source term for the z-momentum equation. 

Input 



DEL 


Computational grid spacing in sweep direction. 


DPDRHO, DPDRU, DPDRV, Derivatives dpi dp, dpjd(pu), dp/d(pv), dpld(pw), and dp/dE T . 

DPDRW, DPDET 


DTAU 

DXI, DETA, DZETA 
ETAX, ETAY, ETAZ, ETAT 
IBASE, ISTEP 

♦ IEULER 

♦ IHSTAG 
ISWEEP 

♦ ITHIN 
IV 

12, 13 

JI 

METX, METY, METZ, METT 

MU, LA 

NPTS 

NR, NRU, NRV, NRW, NET 


NZM 

P 

♦ RER 

RHO, U, V, W 
RHOL, UL, VL, WL 

♦ THZ 

XIX, XIY, XIZ, XIT 

ZETAX, ZETAY, ZETAZ, 
ZETAT 


Time step At. 

Computational grid spacing Af , A17, and AC 
Metric coefficients tj Xi rj y , rj 2 , and ?? f . 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional anray. 

Flag for Euler calculation. 

Flag for constant stagnation enthalpy option. 

Current ADI sweep number. 

Flags for thin-layer option. 

Index in the "vectorized" direction, 4,. 

Grid indices j and k , in the rj and £ directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J~ \ 

Derivatives of sweep direction computational coordinate with re- 
spect to x, y , z, and t. 

Effective coefficient of viscosity p and effective second coefficient 
of viscosity X at time level n. 

Number of grid points in the sweep direction, N. 

Array indices associated with the dependent variables p, pw, pv, 
pw, and E t . 

Array index associated with the z-momentum equation. 

Static pressure p at time level n. 

Reference Reynolds number Re r . 

Static density p, and velocities u y v, and w at time level n . 

Static density p, and velocities u , v, and w from previous ADI 
sweep. 

Parameters 6i,9 2 , and 0 3 determining type of time differencing for 
the z-momentum equation. 

Metric coefficients £„ £ y , and £ f . 

Metric coefficients £ x , £ z , and 
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Output 


Coefficient submatrices A, B, and C at interior points (row NZM 
only). 

Source term subvector S at interior points (element NZM only). 


A, B, C 
S 

Description 

Subroutine COEFZ computes the coefficients and source term for the z-momentum equation. 
Equations (7.5a-c) in Volume 1 represent, in vector form, the five governing difference equations for the 

AAA 

three ADI sweeps. The elements of the inviscid flux vectors E, F, and G are given in Section 2.0 of Volume 
1, and the elements of the viscous flux vectors E Vv E^ 2 , etc., are given in Appendix A of Volume 1. The 

Jacobian coefficient matrices <3E/<3Q, <3E vJdQ, etc., are given in Section 4.0 of Volume I. Using all of these 
equations, the differenced form of the z-momentum equation may be written for the three ADI sweeps 
as 22 

Sweep 1 (£ direction) 


A * $ j At 

A(pw)i + 


(1+0 2 )2A£ 

At 


A 

aE 4 

A 

dQ 


AQ/ + 1 — 


/+ 1 


dE 4 

A 

3Q 


AQi-l 


(-1 


[ifi- 1 + fifg?- ,AQ , - W_ , + 2f i+ f i + x fg^Q] + {f i + f i+ ,)V + tAQj + 0 = 


(1 +0 2 )2(A£) 

- yyy- (<5 jE 4 + <5„F 4 + <5 { G 4 )" + -yyyj- [<5 j(E^) 4 + 5JF Vi ) a + 5 C (G^) 4 ]” 


+ 


(1 +0 3 )At 

1 n 9^ 


fo(E Kj > 4 + *„( Fyjt + S ( (GyJ 4 ] n - [6 S (EyJ 4 + S^Fy^ + S c (Gy 2 ) ] 


m-i 


, ^2 A/ A 1 

+ TTe7 A(,,K> 


Sweep 2 (n direction) 


0, At 


Mp”)j + (1 + 0 2 )2A»7 


<5F 4 

A 

dQ 


AQ 


y- 1 


A 

0F 4 

A 

aQ 


A** 

AQ/+1 


7+1 


0! At 


[( fj _ i + fj fgj- jAqJI \-{fj-i + Vj+fj+ \) n gj A Qj +(fj + fj+ \) n gj+ i A 9/ + 1] 


(l+0 2 )2(Ar,y 


A(pw) 


22 These equations are written assuming the energy equation is being solved. For a constant stagnation enthalpy case, 
the total energy E r would not appear as a dependent variable, and the Jacobian coefficient matrices would have 
only four elements. 
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Sweep 3 (£ direction) 


A ^ ( 1 + 0 2 )2A C 


6 j At 


<3G 4 

A 

5Q 


i- 


it~ i 


A 

5G 4 

A 

5Q 




* + 1 


0] At 


(i + 0 2 )2(Acr 


• [(/* -i+/* )"rf - 1 aq;_ i-(/*-i+%+/*+ i)"&aq; +(/*+/*+,)"«;+ jaq 


A ** 

A(pw) 


In the above equations, the subscripts i, j, and k represent grid point indices in the <*, tj, and £ directions. 
For notational convenience, terms without an explicitly written y, or /c subscript are understood to be at 
or it. On the left hand side, /is the coefficient of 5/<3£ (or djdtj or djdC, depending on the sweep) in the 

dEvJdQ (or dFyJdQ or dGyJdQ) Jacobian coefficient matrix. Similarly, g is the term in the parentheses 

following djdQ (or djdr) or <3/<9Q in the dEyJdQ (or 5F n /3Q or dGvJdQ) Jacobian coefficient matrix. 


The vector of dependent variables is 

A J f 

Q = y[p pw pv pw £ r ] 


The appropriate elements of the inviscid flux vectors are given by 

E 4 = y + pvwty + (pw 2 + p)l 2 + pw|,] 

A J 2 

F 4 = — [puwti x + pvwrjy + (pw + p)rj z + pwrjJ 
G 4 = y [puw£ x + pvwCy + (pw 2 + p% z + pw£ f ] 


The appropriate elements of the non-cross derivative viscous flux vectors are 

(E Ki ) 4 = y yy [2p^vt> + )4 2 (t x u i + £y v f + + ^x^z u \ + £x w £) + v£y(Zz v i + £y w £)] 

(F^) 4 = yyy + Vn + + W x (n z u r, + nx w n ) + M’Jyfaz^ + VVl 

(Gj/j^ = y yy [2pC^w- + ?X z (^x u Q + £y v f + + p£y(£z v £ + 

And the appropriate elements of the cross derivative viscous flux vectors are 

(Ej/ 2 ) 4 = y yy [2p^(>/z M ' , r, + Sz w s) + ^z(v x u v + »/y v , + »/z% + Cx u £ + £y v { + £z w q) 

+ tfxiWr, + Vx W n + + Cx w c) + vZy(*lz V ri + Vy^r, + Ca*fc + Cy^f)] 


(Fp> = yy~ + Czw c ) + + V? + ^ + Cy v £ + k w {) 

+ + £jc W J + £z m £ + ^X W c) + Wy(^ v { + £y w £ + ^Z V ( + Cy^f)] 
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(Gf/^4 j £ e + %Z W %) ^zi^X^rj *ly V ti ^Z W rj ~^~ ^xP$ £y V £ £? W {) 

+ ^x(lz u ri + Ix^r) + £z"{ + ^ w |) + P^y(Vz v v + V 4 '*? + ^z v { + £>> w {)] 


A A 


The elements of the Jacobian coefficient matrix 5E/3Q for the inviscid terms in the z-momentum 
equation are 


A 

dTL d dp dp dp dp 

= w Zx + ~t£xZz w Zy + “S77TT ^ fr+/l+ w ^ + -S7-7^£. 


a(pu) "V ' d{pv) r ^ 1 2 d(pw) 

where f = + v£, + w{ 2 . 

The elements of the Jacobian coefficient matrix dE v JdQ for the viscous terms are 
5(E y { ) 4 j 


Jr-t I 

7 dE r *>} 


dQ 


Re r 


A 

3E, 


A 

dQ 


4 d) -Mr) -M±) 0 


41 


where 


/ SE V[ \ 

l ■ 5 1 

(JL\ a -Li 


i „ -L ( — \ 

v J 

1 - dt 1 

l P ) ? z d£ ' 

k P ) 

1 22 dl \ P ) 


41 

«X2 = (M + 
a yz = (M + 

a 27 = + M^ 2 + (2/r + IK? 

A A A A A A A A 

The Jacobian coefficient matrices <3F 4 /<3Q and ^(F^VdQ have the same form as dE^/dQ and byEy^ldQ, 

A A A A 

but with £ replaced by yj. Similarly, the Jacobian coefficient matrices 3G 4 /5Q and d(G Vl ) 4 ldQ have the same 
form as dlU/dQ and ^(E^/SQ, but with £ replaced by C* 

As an example of how these equations are translated into Fortran, consider the A {pujJ) term on the left 

A A A 

hand side for the first sweep. This is the second element of Q, so using the second element in dE */5Q, we 
get for the inviscid term 


A(rV,I,NZM,NRU) = 


B(IY,I,NZM,NRU) = 0 


9 \( Ar )i,j,k 

(\+6 2 )2AS 


( W Di-\J,k + 


dp 


d( P u) 


t. 


i- 1 J. kj 


C(IV,I,NZM,NRU) = 


9 ]( At )i,j,k 

(1 + 0 2 )2A£ 


+ij,k+ 1 a(/5U) M 


dp 


i+ljf 


A A 

For the viscous terms on the left hand side, we use the second element in ^(E^WdQ, which is 
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Thus/= <x JRe r and g- 1/p. To add the viscous contribution to this part of the A coefficient submatrix, 
we therefore set 


A(IV,I,NZM,NRU) = A(rV,I,NZM,NRU) — 


® 1 (^ T )i,y, k 

(1 + 9 2 )2(A£) 2 Re r 


t( a xz)i — 1 ,j, k ( a xz)i,j, ( p ) 

v 7 — 1 


J'k 


Similar equations may be written for the B and C coefficient submatrices. 

In COEFZ, the coefficients of the left hand side, or implicit, terms are defined first. The implicit terms 
for the second and third ADI sweeps have exactly the same form as for the first sweep, but with £ replaced 
by rt and £, respectively. By defining DEL, METX, METY, METZ, and METT as the grid spacing and 
metric coefficients in the sweep direction, the same coding can be used for all three sweeps. 

The source term, or right hand side, for the first sweep is defined next. The difference formulas used to 
compute the source term are the same as those used for the implicit terms, and are presented in Section 5.0 
of Volume 1 . This is followed b^ the coding for the source term for the second and third sweeps, which 
consists only of A(pV)* or A(pvv) ’. 


Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Section 
2.3. 

2. The subscripts on the Fortran variables A, B, C, and S may be confusing. The first subscript is the 
index in one of the non-sweep (i.e., "vectorized'^) directions, and the second subscript is the index in the 
sweep direction. For the first sweep the order is thus (12,11), for the second sweep the order is (11,12), 
and for the third sweep the order is (11,13). For sections of the code that apply to all three sweeps (i.e., 
the implicit terms), the first two subscripts are written as (IV,I). For sections of the code that apply 
only to the first sweep, the first two subscripts are written as (12,11). For sections that apply to the 
second and third sweeps, they are written as (11,1). The third subscript on A, B, C, and S corresponds 
to the equation. And, for A, B, and C, the fourth subscript corresponds to the dependent variable for 
which A, B, or C is a coefficient. 

3. The Euler option is implemented simply by skipping the calculation of the coefficients and source terms 
for the viscous terms. 

4. The thin-layer ption is implemented by skipping the calculation of the coefficients and source erms 
for the viscous terms containing derivatives in the specified direction. 
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Subroutine CONV 



Input 

CHGMAX 

DUMMY 

* EPS 

* GAMR 

* IAV2E, IAV4E 

* ICTEST 

* IHSTAG 
IT 

NEQ 

* NITAVG 

* NOUT 

NR, NRU, NRV, NRW, NET 
NTOTP 

* Nl, N2, NJ 
RESAVG 
RESL2 
RESMAX 

RGAS 

RHO, U, V, W, ET 
RHOL, UL, VL, WL, ETL 


Maximum change in absolute value of the dependent variables 
from time level n— 1 to n (or over the previous NITAVG — 1 
time steps if ICTEST = 2), AQ m „. 

A three-dimensional scratch array. 

Convergence level to be reached, e. 

Reference ratio of specific heats, y r . 

Flags for second- and fourth-order explicit implicit artificial 
viscosity. 

Flag for convergence criteria to be used. 

Flag for constant stagnation enthalpy option. 

Current time step number n. 

Number of coupled equations being solved, N„. 

Number of time steps in moving average convergence test. 

Unit number for standard output. 

Array indices associated with the dependent variables p, pw, pv, 
pw, and E t . 

Dimensioning parameter specifying the storage required for a full 
three-dimensional array (i.e., NIP x N2P x N3P). 

Number of grid points AT|, N 2 , and V 3 , in the £, r\, and £ directions. 

The average absolute value of the residual at time level n, R^. 

The Li norm of the residual at time level n, R i2 - 


The maximum absolute value of the residual at time level n, 
Rmcx* 


Gas constant R. 

Static density p, velocities u, v, and w, and total energy Et at time 
level n + 1 . 

Static density p, velocities u, v, and w, and total energy E T at time 
level n. 



ICONV 


Maximum change in absolute value of the dependent variables, 
averaged over the last NITAVG time steps, AQ C¥g . 

Maximum change in absolute value of the dependent variables 
from time level nton+1 (or over the previous NITAVG time 
steps if ICTEST = 2), AQ m „. 

Convergence flag; 1 if converged, 0 if not. 
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Description 


Subroutine CONV checks the computed flow field for convergence. Convergence may be based on: (1) 
the absolute value of the maximum change in the dependent variables over the previous time step; ( 2 ) the 
absolute value of the maximum change in the dependent variables, averaged over the last NITAVG time 
steps; ( 3 ) the L 2 norm of the residual for each equation; (4) the average residual for each equation; or (5) 
the maximum residual for each equation. These parameters are defined in Section 4.1.6 of Volume 2. 

The convergence criteria to be used and the level to be reached are set by the input parameters ICTEST 
and EPS. Each dependent variable or equation is checked separately, and convergence is declared when the 
specified level is reached for all of the variables or equations. The same criteria is used for each one, but 
different levels may be specified. 

Subroutine CONV first computes AQ m „, the absolute value of the maximum change in each dependent 
variable over all the grid points for the most recent time step. These values are stored in 
CHGMAX(IVAR,1), where IVAR varies from 1 to NEQ, the number of dependent variables. If 
ICTEST = 2 (the so-called "moving average" convergence test), CHGMAX(IVAR,2) contains the maxi- 
mum change for the previous time step, etc. 

Then, depending on the value of ICTEST, the chosen convergence criteria is compared with the level 
to be reached for each dependent variable or equation, and a flag is set if the calculation is converged. 

Remarks 

1 . For ICTEST = 1 or 2 ,_the change in E r is divided by R/(y, - 1) + 1/2. This is equivalent to dividing 
the dimensional value E T by 

„ PrRT r , prf 

E r = —r + — 5 — 

r y r ~ 1 2 

This makes the change in total energy the same order of magnitude as the other conservation variables. 

2. For ICTEST - 1 or 2, the convergence test is based on (or includes) the change in dependent variables 
from time level n to n + 1. For ICTEST = 3, 4, or 5, convergence is based on the residual at time level 
n, not n -f 1 . This is because the residuals at time level n + 1 are not computed until the marching step 
from 72 + 1 to ; +■ 2 is taken. 

3. For cases run with artificial viscosity, the residuals are computed and printed both with and without the 
artificial viscosity terms. This may provide some estimate of the overall error in the solution introduced 
by the artificial viscosity. Convergence is determined by the residuals with the artificial viscosity terms 
included. 

4. The Cray search routine I SAM AX is used in computing the absolute value of the maximum change in 
dependent variables. 

5. The scratch array DUMMY, from the common block DUMMY 1, is used to store the values of the 
change in dependent variables for use by IS AM AX. 

6 . A warning message is generated if an illegal convergence criteria is specified. ICTEST is reset to 3 
(convergence based on the Li norm of the residual), and the calculation will continue. 
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Subroutine CUBIC (IDIR, T,G, NOLD, TINT, GINT) 

Called by 

Calls 

Purpose 

PAK 


Interpolation using Ferguson's parametric cubic. 


Input 

G 

IDIR 

II, 12, 13 
MOLD 

* Nl, N2, N3 
T 

TINT 


A three-dimensional array containing 

NOLD1 xNOLD2xNOLD3 values of the function g(t) to be 
interpolated. 

Direction flag; 1 if first subscript in G varies, 2 if second subscript 
varies, 3 if third subscript varies. 

Grid indices i,j, and k, in the £, tj, and £ directions. 

Number of values in direction IDIR in array G (i.e., NOLD1, 
NOLD2, or NOLD3.) 

Number of grid points Nu N '% , and iV 3 , in the yi, and £ directions. 

A one -dimensional array containing NOLD values of the inde- 
pendent variable t. 

A one-dimensional array containing Nl, N2, or N3 (depending 
on IDIR) values of the independent variable t = t mt at which in- 
terpolated values gint = g(tint) are desired. 


Output 


GINT 


A one-dimensional array containing Nl, N2, or N3 (depending 
on IDIR) interpolated values g^t = g(tui r). 


Description 

Subroutine CUBIC performs interpolation using Ferguson's parametric cubic polynomial (Faux and 
Pratt, 1979). Given the function g(t) and a value CUBIC computes gmt = g(Uir)* 

The function g(t) is specified by the Fortran arrays G and T. For a general value r, let 


where t u < t < t d . (I.e., t u and t d are the two elements of the array T that bracket t.) 
Between t u and t dy assume g can be described by a cubic polynomial in as follows: 

g — a \ + + ci^tj 


Differentiating, 


az 9 

g' = — = a 2 + 2 a 3 t f + ?>a A t f 

Noting that t f = 0 at / = t Ui and 1 at / = t d , we get 
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Solving for a 3 through a», 


iu = a l 
iu = a 2 

id = + a 2 + a 3 + a 4 

= a 2 + 2a 3 + 3a 4 


=iu 
a 2 = i'u 

® 3 = id iu ) 

a 4 = 2(? u - id) + ^1/ + 

Plugging these into the cubic polynomial for / and rearranging, 

g = iu( 1 - V + 2t/ 3 ) + &(3f/ - 2r/) 

+ *j, 0/- V + f/) + ^(-'/ + //) 

This is the form of the equation used to compute g m! . 

Remarks ' 

1. At interior points in the array g, the derivatives g[ and gj are computed using a second-order central 
difference formula. At the end points, second-order one-sided difference formulas are used. 

2. The Fortran variable TINT is actually a one-dimensional array containing jVi, N 2 , or jV 3 input values 
of f mI . Similarly, GINT is a one-dimensional array containing N u N 2 , or N 3 output values of g M . 

3. The Fortran array G that specifies the input values of g{t) is actually a three-dimensional array. Within 
CUBIC, however, only one of the subscripts varies. The input flag IDIR specifies which one. 
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Subroutine EQSTAT (ICALL) 

Called by 

Calls 

Purpose 

BVUP 

EXEC 

INITC 

MAIN' 


Use equation of state to compute pressure, temperature, and their de- 
rivatives with respect to the dependent variables. 


Input 

CP, cv 

* HSTAG 

IBASE, ISTEP 
ICALL 

* IHSTAG 
NPTS 

* Nl, N2, N3 
RGAS 

RHO, U, V, W, ET 


Specific heats c. and c v . 

Stagnation enthalpy h T used with constant stagnation enthalpy 
option. 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

0 to get p and T, 1 to get derivatives of p and T with respect to 
dependent variables. 

Flag for constant stagnation enthalpy option. 

Number of grid points in the sweep direction, N. 

Number of grid points N\, A/j, and A3, in the £, p, and £ directions. 
Gas constant R. 

Static density p, velocities u, v, and w, and total energy E T - 


Output 

DPDRHO, DPDRU, DPDRV, 
DPDRW, DPDET 

DTDRHO, DTDRU, DTDRV, 
DTDRW, DTDET 

ET 

INEG 

P.T 


Derivatives dpjdp, dpjd(pu), dpld(pv), dpjd(pw), and 8 p/dEr- 
Derivatives STjdp , dT/d(pu), dTld(pv), dTjd(pw), and c E/dEr- 

Total energy (constant stagnation enthalpy option only.) 

Flag for non-positive pressure and/or temperature; 0 if positive, 1 
if non-positive. 

Static pressure p and temperature T. 


Description 

Subroutine EQSTAT computes various quantities that depend on the form of the equation of state. It 
virtually serves a dual purpose. First, it is called from subroutine IN1TC and from the MAIN program, 
with the input parameter ICALL = 0, to compute the static pressure p and temperature T from the initial 
or just-computed values of the dependent variables. If the constant stagnation enthalpy option is being used 
it also computes a value for the total energy E T . And second, it is called from subroutines BVUP and 
EXEC, with ICALL = 1, to compute the derivatives of p and T with respect to the dependent variables. 23 

The equation of state currently built into Proteus is for a perfect gas. The formulas used to compute 
p, T, and their derivatives with respect to the dependent variables are presented in Section 4.3 of Volume 
L 


23 These are needed for linearization of the governing equations. See Section 4.1 of Volume 1 for details. 
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Remarks 


1. When used to compute p and T (ICALL = 0), this subroutine is called from outside any loops in the 

rf y or £ directions. When used to compute dpjdp , etc., (ICALL = 1), it is called for each ADI sweep 
from inside a loop in the non-sweep direction. 

2. When computing dpjdp , etc., this subroutine uses one-dimensional addressing of three-dimensional 
arrays, as described in Section 2.3. 
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Subroutine EXEC 

Called by 

CaUs 

Purpose 

MAIN 

ADI 

AVISC1 

AVISC2 

BCELIM 

BCGEN 

BVUP 

COEFC 

COEFE1 

COEFE2 

COEFX 

COEFY 

COEFZ 

EQSTAT 

PERIOD 

RESID 

UPDATE 

Manage solution of governing equations. 


Input 


DXI, DETA, DZETA 

Computational grid spacing A£, A rj, and A£. 

ETAX, ETAY, ETAZ, ETAT 

Metric coefficients rj X} Yj yi r\ zy and rj t . 

IAV2E, LAV4E, IAV2I 

Flags for second-order explicit, fourth-order explicit, and second- 
order implicit artificial viscosity. 

IBCELM 

Flags for elimination of off-diagonal coefficient submatrices re- 
sulting from three-point boundary conditions in the £ and/or v\ 
directions; 0 if elimination is not necessary, 1 if it is. 

ICHECK 

Convergence checking interval. 

IHSTAG 

Flag for constant stagnation enthalpy option. 

IT 

Current time step number n . 

ITBEG 

The time level n at the beginning of a run. 

ITHIN 

Flags for thin-layer option. 

KBCPER 

Flags for spatially periodic boundary conditions in the £, rj, and £ 
directions; 0 for non-periodic, 1 for periodic. 

NEQP 

Dimensioning parameter specifying maximum number of coupled 
equations allowed. 

NMAXP 

A dimensioning parameter equal to the maximum of NIP, N2P, 
and N3P. 

NPT1, NPT2, NPT3 

JV i, N 2 , and A 3 for non-periodic boundary conditions, N\ + 1 , 
A 2 + 1, and A / 3 + 1 for spatially periodic boundary conditions in 
£, n , and £. 

Nl, N2, N3 

Number of grid points N\ y N 2 , and AT 3 , in the £, rj, and £ directions. 

NIP, N2P 

Parameters specifying the dimension sizes in the £ and rj di- 
rections. 

XIX, XIY, XIZ, XIT 

Metric coefficients £„ £ z , and £ r . 
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ZETAX, ZETAY, ZETAZ, 
ZETAT 

Output 

DEL 

IBASE, ISTEP 

ISWEEP 

IV 

II, 12, 13 

METX, METY, METZ, METT 

NPTS 

NV 

RHO, U, V, W, ET 
RHOL, UL, VL, WL, ETL 
TL 

Description 


Metric coefficients £*, ( yj £ z , and £ r . 


Computational grid spacing in sweep direction. 

Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Current ADI sweep number. 

Index in the "vectorized" direction, 4- 

Grid indices i,y, and k , in the £, rj } and £ directions. 

Derivatives of sweep direction computational coordinate with re- 
spect to x> y, z , and t. 

Number of grid points in the sweep direction, V. 

Number of grid points in the "vectorized" direction, N v . 

Static density p, velocities u, v, and w, and total energy E r at time 
level n 4- 1 . 

Static density p, velocities w, v, and w, and total energy E r at time 
level n. 

Static temperature T at time level n . 


Subroutine EXEC manages the solution of the governing equations. It is called by the MAIN program 
during each marching step from time level rt to n -f- 1. The steps involved in EXEC are described below. 

Preliminary Steps 

1. If this is the first time step, temporarily set the thin-layer flags to zero. 

2. Initialize the coefficient submatrices A, B, and C, and the source term subvector S, to zero. 

3. If spatially periodic boundary conditions are being used in any direction, call PERIOD to add the ap- 
propriate extra line(s) of data. 

First ADI sweep , £ direction 

4. Set various sweep-dependent parameters, as follows: 

isweep = 1 
istep = 1 
del = 

nv = N 2 or N 2 + 1 

5. Begin loop in non-sweep (£) direction over interior points (k = 13 = 2 to NPT3 — 1). 

6. Set 


npts = Ni or N\ + 1 
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7. Set metrics in sweep (£) direction at all grid points as follows: 

metx(iZ,il) = (Zx)i,;,k 
mety(12,il) = (Z y )i,j,k 
metz(i2,il) 38 (£*);,,,* 
mett(i2,il) = (£, ).,>,* 

8. Begin loop in non-sweep (>/) direction over interior points (j = 12 = 2 to NPT2 - 1). 

9 . Call EQSTAT to get the derivatives of p and T with respect to p, pu, etc., along the current 

line at all £ grid points. 

10. Call the COEF routines to compute the coefficients and source terms for the governing 
equations along the current line at all interior £. grid points. 

1 1. End of loop in non-sweep (jj) direction. 

12. For non-spatially periodic boundary conditions in the £ direction, begin loop in non-sweep (>j) di- 
rection over interior points (j = 12 = 2 to NFT2 — 1). 

13. Call EQSTAT to get the derivatives of p and T with respect to p, pu , etc., along the current 
t}-£ line at all f grid points. 

14. Call BCGEN to compute the coefficients and source terms for the boundary condition 
equations at the end points (/ = II = 1 and A/) of the current >/-£ line. 

15 If three-point boundary' conditions were used at either boundary, call BCELIM to eliminate 

the resulting off-diagonal coefficient submatrices. 

16. End of loop in non-sweep (>?) direction. 

17. Every ICHECK time steps, call RESID to compute residuals at time level n without the artificial 
viscosity terms, and to update the convergence history file. 

18. If artificial viscosity is being used, call AVISC1 or AVISC2 to add the appropriate terms to the 
coefficient submatrices and/or the source term subvectors at all interior grid points. 

19. Every ICHECK time steps, if artificial viscosity is being used, call RESID to compute residuals at 
time le . :1 n with the artificial viscosity terms, and to update the convergence history file. 

20. If spatially periodic boundary conditions are being used in the £ direction, reset NPTS = Ai . 

21. Call ADI to solve the system of difference equations. 

22. Begin loop in non-sweep (>;) direction over interior points (j = 12 = 2 to NPT2 - 1). 

23. Call UPDATE to compute the primitive flow variables, Q*, from the newly computed con- 
servation variables in delta form, AQ*, along the current >j-C line at all f grid points. 

24. End of loop in non-sweep (>/) direction. 

25. End of loop in non-sweep (£) direction. 

Second ADI weep, n direction 

26. Set various sweep-dependent parameters, as follows: 

isweep = 2 
istep = nip 
del = A»j 
nv = Ni or N\ + 1 

27. Begin loop in non-sweep (0 direction over interior points (k = 13 = 2 to NPT3 - 1). 
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28 . 


Set 


npts = N 2 or iV 2 + 1 

29. Set metrics in sweep (??) direction at all grid points as follows: 

metxC i 1,12) = {rj x )ij t k 
mety (il , i2) = (rj y )i %J \k 
metz(il,i2) = 
mettC il , 12) = 

30. Begin loop in non-sweep (£) direction over interior points (/= Il = 2 to NPT1 — 1). 

31. Call EQSTAT to get the derivatives of p and T with respect to p, pu t etc., along the current 
C-C line at all rj grid points. 

32. Call the COEF routines to compute the coefficients and source terms for the governing 
equations along the current £-£ line at all interior rj grid points. 

33. End of loop in non-sweep (£) direction. 

34. For non-spatially periodic boundary conditions in the r\ direction, begin loop in non-sweep (£) di- 
rection over interior points (/ — Il — 2 to NPT1 — 1). 

35. Call EQSTAT to get the derivatives of p and T with respect to p , pu , etc., along the current 

line at all ^ grid points. 

36. Call BCGEN to compute the coefficients and source terms for the boundary condition 
equations at the end points (/ = 12 = 1 and N 2 ) of the current {-£ line. 

37. If three-point boundary conditions were used at either boundary, call BCELIM to eliminate 
the resulting off-diagonal coefficient submatrices. 

38. End of loop in non-sweep (C) direction. 

39. If implicit artificial viscosity is being used" call AVISC 1 to add the appropriate terms to the coeffi- 
cient submatrices at all interior grid points. 

40. If spatially periodic boundary conditions are being used in the tj direction, reset NPTS = N 2 . 

41. Call ADI to solve the system of difference equations. 

42. Begin loop in non-sweep (£) direction over interior points (i = Il = 2 to NPT1 — 1). 

43. Call UPDATE to compute the primitive flow variables, Q**, from the newly computed con- 
servation variables in delta form, AQ**, along the current line at all rj grid points. 

44. End of loop in non-sweep (£) direction. 

45. End of loop in non-sweep (£) direction. 

Third ADI sweep , C direction 

46. Set various sweep-dependent parameters, as follows: 

i sweep = 3 
istep = nlp*n2p 
del = AC 

nv — N\ or N\ + 1 

47. Begin loop in non-sweep (>/) direction over interior points (j = 12 = 2 to NPT2 — 1). 

48. Set 


npts = Nz or Ni -j- 1 
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49. 


Set metrics in sweep (Q direction at all grid points as follows: 


metxtil ,i3) = (£*),.,,* 
rnetydl ,i3) = (Q;,;,* 
metzCil ,i3) = (Q-j.* 
mettCil , 13 ) = 

50. Regin loop in non-sweep (£) direction over interior points (/= II = 2 to NPT1 — 1). 

51. Call EQSTAT to get the derivatives of p and T with respect to p, pu, etc., along the current 

line at all £ grid points. 

52. Call the COEF routines to compute the coefficients and source terms for the governing 
equations along the current £->? line at all interior £ grid points. 

53. End of loop in non-sweep (£) direction. 

54. For non-spatially periodic boundary conditions in the £ direction, begin loop in non-sweep (£) di- 
rection over interior points (/ = II = 2 to NPT1 — 1). 

55. Call EQSTAT to get the derivatives of p and T with respect to p, pu, etc., along the current 
S,-r\ line at all £ grid points. 

56. Call BCGEN to compute the coefficients and source terms for the boundary condition 
equations at the end points (k = 13 = I and N z ) of the current £->/ line. 

57. If three-point boundary conditions were used at either boundary, call BCELIM to eliminate 
the resulting off-diagonal coefficient submatrices. 

58. End of loop in non-sweep (£) direction. 

59. If implicit artificial viscosity is being used, call AVISC1 to add the appropriate terms to the coeffi- 
cient submatrices at all interior grid points. 

60. If spatially periodic boundary conditions are being used in the £ direction, reset NPTS = N 3 . 

61. Call ADI to solve the system of difference equations. 

62. Begin loop in non-sweep (£) direction over interior points (/= II = 2 to NPT1 — 1). 

63. Call UPDATE to compute the primitive flow variables, Q" + from the newly computed con- 

A ^ 

ser .ation variables in delta form, AQ", along the current £->/ line at all £ grid points. 

64. End of loop in non-sweep (£) direction. 

65. End of loop in non-sweep (i?) direction. 


Finishing 


66. If this is the fust time step, reset the thin-layer flags back to their input value. 

67. Call BVUP to update the £ and rj boundary values, if necessary. 

68. For all grid points, shift RHO and RHOL so that RHO = p n + 1 and RHOL = p n . Similarly, shift the 
Fortran variables for u, v, w, and E T - Finally, set TL = T n . 
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Subroutine EXECT 

Called by 

Calls 

Purpose 

TURBCH 

PERIOD 

SWDOWN 

SWUP 

UPDTKE 

Manage solution of the k-z equations. 


Input 

* CMUR 

* CTHREE 
E 

KBCPER 

KE 
MUT 

NPT1, NPT2, NPT3 

RHO 
YPLUSD 

Output 

EL Turbulent dissipation rate e at time level n . 

KEL Turbulent kinetic energy k at time level n. 

MUT, MUTL Turbulent viscosity y. t at time levels n 4- 1 and n . 

Description 

Subroutine EXECT manages the solution of the k-z equations. It is called by subroutine TURBCH, 
NTKE times per mean flow iteration. The steps involved in EXECT are described below. 

1. If spatially periodic boundary conditions are being used in any direction, call PERIOD to add the ap- 
propriate extra line(s) of data. 

2. Call SWUP to compute the coefficients and source terms for k-z equations for the upward LU sweep, 
and to perform the sweep itself. 

3. Call SWDOWN to compute the coefficients and source terms for k-z equations for the downward LU 
sweep, and to perform the sweep itself. 

4. For all grid points, set KEL = k n and EL = e”, 

A 

5. Call UPDTKE to compute the primitive flow variables k n ^ 1 2 3 4 5 6 and s n + 1 from AW", the newly computed 
conservation variables in delta form. 

6. Compute the turbulent viscosity at each grid point, storing + 1 and /i? in MUT and MUTL, respec- 
tively. 


Constant C Ur in formula for Q. 

Constant C z in formula for C M . 

Turbulent dissipation rate z at time level n . 

Flags for spatially periodic boundary conditions in the f and v\ 
directions; 0 for non-periodic, 1 for periodic. 

Turbulent kinetic energy k at time level n. 

Turbulent viscosity fi t at time level n. 

N\ y and N z for non-periodic boundary conditions, ]Vj+ 1, 
7V 2 + 1, and N z + 1 for spatially periodic boundary conditions in 
and C- 

Static density p at time level n. 

Nondimensional distance y+ from the nearest solid wall. 
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Subroutine FILTER 

Called by 

CaHs 

Purpose 

BLK4 

BLK5 

BLKOUT 

ISAMAX 

ISRCHEQ 

Rearrange rows of the boundary condition coefficient submatrices and 
the source term subvector to eliminate any zeroes on the diagonal. 


A, B, C 

* IDEBUG 

* IPRT1A, IPRT2A, IPRT3A 
ISWEEP 

IT 

IV 

NEQ 

NMAXP 


* NOUT 

NPRT1, NPRT2, NPRT3 

NPTS 

S 

Output 

A, B, C 
S 


Coefficient submatrices A, B, and C before rearrangement. 
Debug flags. 

Indices for printout in the £, >j, and C directions. 

Current ADI sweep number. 

Current time step number n. 

Index in the "vectorized" direction, i,. 

Number of coupled equations being solved, N, r 

A dimensioning parameter equal to the maximum of NIP, N2P, 
and N3P. 

Unit number for standard output. 

Total number of indices for printout in the £, and £ directions. 
Number of grid points in the sweep direction, N. 

Source term subvector S before rearrangement. 


Coefficient submatrices A, B, and C after rearrangement. 
Source term subvector S after rearrangement. 


Description 

Subroutine FILTER rearranges rows of the coefficient block submatrices and the source term subvector, 
at the two boundaries in the ADI sweep direction, in an attempt to eliminate any zero values on the diag- 
onal of the submatrix B. These zero values may occur when mean flow boundary conditions are specified 
using the JBC and/or IBC input parameters, depending on the initial conditions and the order of the 
boundary conditions. 

For instance, if the specified initial conditions are zero velocity and constant flow properties everywhere 
in the flow field, the perfect gas equation of state yields: 

E t = pc v T 


p=iy- !) £ r 

dp dp dp dp 

dp ~ d(pu) d(pv) d(pw) 


dp 

dE T 


-y- 


l 
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8T _ e t 

S(> CyP 1 

3T dT _ dT 0 

d{pu) d(pv) d(pw) 

dT _ 1 
SE t Cy P 

If, in addition, the boundary conditions at a given boundary are, in order, specified pressure p =/, no-slip 
x-, y-, and z-velocity u = v = w = 0, and specified temperature T =/, then the linearization of the boundary 
conditions leads to the following B coefficient submatrix for that boundary: 

0 0 0 0 J(y-l) 

0 Jjp 0 0 0 

0 0 Jjp 0 0 

0 0 0 jjp 0 

— JEjjCvp 2 0 0 0 jjc^p 

The zero on the diagonal will lead to a divide-by-zero error in subroutine BLK5, even though this is not a 
singular matrix. 

Subroutine FILTER tries to fix this problem. In this example, it finds a zero at element Bn, searches 
column 1 for the largest element in absolute value (in this case — JErlc,p 2 ), and adds that row to the row 
with the zero on the diagonal. Of course, the corresponding rows of A, C, and S must also be added to- 
gether. The new B submatrix would be: 

- JE T jc,p 2 0 0 0 J(y — 1) + JjCyp 

0 Jjp 0 0 0 

B = 0 0 Jjp 0 0 

0 0 0 Jjp 0 

- JErjCyp 2 0 0 0 Jl^p 

Remarks 

1. If a column with a zero on the diagonal has no other elements greater than 10" 10 , then it is assumed that 
the matrix B is singular, which means the specified boundary conditions are not independent of one 
another. An error message is printed and the calculation is stopped. 

2. It’s probably sufficient to only call this subroutine for the first time step. After the first step, the chances 
of w, v, and w all being exactly zero at the same interior grid point are slim. Nevertheless, in the current 
version of Proteus , FILTER is called at every time step. 

3. The Cray search routine ISAMAX is used in finding the largest element in any column corresponding 
to a zero on the matrix diagonal. The Cray search routine ISRCHEQ is used in determining the grid 
locations for debug printout. 

4. This subroutine generates the output for the IDEBUG(4) option. 
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Subroutine FTEMP 

Called by 

Calls 

Purpose 

INITC 

MAIN 


Compute auxiliary variables that are functions of temperature. 


Input 

CCP1, CCP2, CCP3, CCP4 
CK1, CK2 
CMU1, CMU2 
* GAMR 
IGAM 


* ILAMV 

* NOUT 

* Nl, N2, N3 
RGAS 

T 

* TR, UR, MUR, KTR 


Constants in formula for specific heat. 

Constants in formula for laminar thermal conductivity coefficient. 
Constants in formula for laminar viscosity coefficient. 

Reference ratio of specific heats, y r . 

Flag for constant or variable c„, c,, and y ; 0 if they are to be 
computed as functions of temperature, 1 if they are to be treated 
as constant. 

Flag for computation of laminar viscosity and thermal 
conductivity. 

Unit number for standard output. 

Number of grid points N u N 2 , and As, in the £, rj, and £ directions. 
Gas constant R. 

Static temperature T. 

Reference temperature T„ velocity «„ viscosity y. r , and thermal 
conductivity k r . 


Output 


CP, CV Specific heats c f and c „. 

MU, LA, KT T aminar coefficient of viscosity fi,, laminar second coefficient of 

viscosity A/, and laminar coefficient of thermal conductivity k s . 


Description 

Subroutine FTEMP computes the auxiliary variables A /t k,, c p , and c,. For the laminar viscosities 
and A,, and the laminar thermal conductivity k h there are two options currently available. 

If the input parameter ILAMV = 0 (the default), FTEMP sets the nondimensional values as: 

N = 1 
A/ =-2/3 
*,= 1 

Thus, with this option, the laminar viscosity and thermal conductivity are held constant at their reference 
values. These reference values may be specified by the user, or computed from the reference temperature. 
The lamin ar second coefficient of viscosity A; is set equal to — 2ju//3. 

If ILAMV = 1, fi/ and ki are computed as functions of temperature using Sutherland's formula (White, 
1974). The formula for the laminar viscosity coefficient /i, is 
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Hi _ Mr + C )*2 / T V' 2 
Pi - Hr ~ Hr f + 2 \r,J 

where the overbar indicates a dimensional value, and ^ is the laminar viscosity coefficient at T = T r , given 
by 


Hr 


= c, 


>1 


r 3/ 2 

7 r +C 


>2 


Depending on the namelist input values of MUR and RER, h' may or may not be equal to Hr- These 
formulas are valid for air for temperatures from 300 to 3420 °R (167 to 1900 K). The value of the constants 
C„i and C u2 depend on whether reference values are being specified by the user in English units 
(IUNITS = 0) or SI units (IUNITS = 1). The values are presented in Table 4-1. The laminar second co- 
efficient of viscosity k, is set equal to — 2/1//3. The formula for the laminar thermal conductivity coefficient 
k, is 


A 

K 


k' r T r + Cj 


= \3/2 


k2 


K T + C, 


kl 


(*) 


where the overbar indicates a dimensional value, and k' r is the laminar thermal conductivity coefficient at 
T = T r , given by 


r 3/2 


K=c t 


kl 


T r +Cj 


kl 


Depending on the namelist input values of KTR and PRLR, K may or may not be equal to k r . These 
formulas are valid for air for temperatures from 300 to 1800 °R (167 to 1000 K). The value of the constants 
C*i and C * 2 depend on whether reference values are being specified by the user in English units 
(IUNITS = 0) or SI units (IUNITS = 1). The values are presented in Table 4-1. 

There are also two options available for the specific heat coefficients c p and c If the flag IGAM = 1, a 
value of the specific heat ratio y has been specified by the user. In this case c p and c v are treated as constants, 
and computed from 



c p = Cy + R 


If IGAM = 0, the user did not specify a value of y. In this case, the specific heat coefficient c p is computed 
as a function of temperature from the empirical formula of Hesse and Mumford (1964), and c„ is computed 
from that value assuming a thermally perfect gas. The ratio y = c P lc, will then vary with temperature. The 
equations for c p and c„ are: 




1/2 


- C c p 2 T + 


C.J 1 ) 


Cy=C p ~R 

This formula is valid for air for temperatures from 540 to 9000 °R (300 to 5000 K). The values of the 
constants C Cpt through C cpi are presented in Table 4-1. 
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TABLE 4-1. - EMPIRICAL CONSTANTS FOR n,, k,, AND c. 


CONSTANT 

ENGLISH 

UNITS 

SI UNITS 

C(ti 

7.3035 x 10- 7 

1.4582 x 10- 6 

Cfi2 

198.6 

110.3 

Ck\ 

7.4907 x 10- 3 

1.8641 x 10- 3 

c« 

350.0 

194.4 

G,, 

8.53 x 10 3 

1.4264 x 10 3 

C Cp 2 

3.12 x 10 4 

3.8888 x 10 3 

4 

2.065 x 10 6 

1.9184 x 10 s 

C Cp 4 

7.83 x 10 s 

4.0413 x 10 7 


Remarks 

1. The formulas used with the ILAMV = 1 option are for air. For other fluids, different formulas should 
be used to compute fi,, 2,, and k,. These could easily be programmed as additional ILAMV options. 
Or, if the flow being computed is such that m and k, may be considered constant, simply set 
ILAMV = 0 and read in the appropriate values for n, and k r . Note, however, that the ILAMV = 0 
option still sets X, = — 2/*;/3. 

2. The formula used to compute c„ when a value of y is not specified by the user, is for air. For other 
gases, a different formula should be programmed. Or, if c f and c, may be considered constant, a value 
of y should be read in. 

3. An error message is generated and execution is stopped if an illegal value is specified for ILAMV . 
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Subroutine GATHER (N, VOUT, VIN, INDEX) 


Called by 


BLOUT 


Purpose 


Create a vector containing specified elements of an input vector. 


Input 

N " Number of elements in the input vectors VIN and INDEX. 

VI N Input vector. 

INDEX Vector of indices specifying which elements of VIN are to be 

stored in VOUT. 

Output 

VOUT Output vector containing elements of VIN specified by INDEX. 


Description 


Subroutine GATHER gathers a set of specified elements from an input vector and returns them in an 
output vector. The operation of GATHER is equivalent to the following Fortran code: 


do 10 i = 1 ,n 
vout(i) = vinCindexC i) ) 
10 continue 


Remarks 

1. GATHER is a Cray Linear Algebra routine (Cray Research, Inc., 1989b). 
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Subroutine GEOM 


Called by 

Calls 

Purpose 

MAIN 

METS 

PAK 

Manage computation of grid and metric parameters. 


* IPACK Flags for grid packing option. 

* NGEOM Flag for type of computational coordinates. 

* NGRID Unit number for input mesh file. 

* NOUT Unit number for standard output. 

* Nl, N2, N3 Number of grid points N u N 2t and N$, in the £, rj, and £ directions. 

NIP, N2P, N3P Parameters specifying the dimension sizes in the £, rj, and £ di- 

rections. 

* RMIN, RMAX Minimum and maximum r- coordinates for cylindrical grid. 

* THMIN, THMAX Minimum and maximum 0-coordinates for cylindrical grid. 

* XMIN, XMAX Minimum and maximum x-coordinates for Cartesian or cylindri- 

cal grid. 

* YMIN, YMAX Minimum and maximum ^-coordinates for Cartesian grid. 

* ZMIN, ZMAX Minimum and maximum z-coordinates for Cartesian grid. 

Output 

DXI, DEI v, DZETA Computational grid spacing A£, A rj, and A £. 

X, Y, Z Cartesian coordinates x, y, and z. 

Description 

Subroutine GEOM manages the computation of the grid and metric parameters. There are currently 
three coordinate system options built into Proteus , as follows: 


Computational grid spacing A£, At], and A £. 
Cartesian coordinates x, y, and z. 


NGEOM Computational Coordinates 

1 Cartesian ( x-y-z ) 

2 Cylindrical (r-6-x) 

10 Read From separate file. 

Subroutine GEOM first computes the grid spacing in computational space in the £, ^ and £ directions 
as A£ = 1 /(jVi — 1), Arj = 1 j(N 2 — 1), and A£ = 1/(A 3 — 1). Note that grid points in computational space are 
always evenly distributed along the (£->?-£) coordinate lines. 

Cartesian (x-y-z) Coordinates (NGEOM = 1) 


For the Cartesian coordinate option, an evenly spaced set of physical Cartesian (x-y-z) coordinates are 
related to the computational (£-*/-£) coordinates by 
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x “ x min + ( x max 


J 7 “ JVm/T ty/Tiax ymin)*! 

^ ~ (^max ^win)^ 


If grid packing is used, subroutine PAK is called to 
rameters specified by the user, and to interpolate to 
the computational mesh. Subroutine METS is then 
metrics and Jacobian. 


redistribute these points according to the packing pa- 
get the new physical Cartesian (x-y-z) coordinates in 
called to numerically compute the grid transformation 


Cylindrical (r-9-x) Coordinates ( NGEOM - 21 

For the cylindrical coordinate option, an evenly spaced set of physical cylindrical ( r-d-x ) coordinates are 
related to the computational -*?-£) coordinates by 

0 = ® min $ max ® min) ^ 

T = ^min { r max 
x ~ x min + ( X max x min K 


The Cartesian (x-y-z) coordinates are simply given by 

* = x 
y = r sin 9 
z = r cos 9 

As in the NGEOM = 1 option, if grid packing is used, subroutine PAK is called to redistribute these pomts 
according to the packing parameters specified by the user, and to interpolate to get the new physical 
Cartesian (x-y-z) coordinates in the computational mesh. Subroutine METS is then called to numerically 
compute the grid transformation metrics and Jacobian. 

Coordinates Read From Separate File ( NGEOM = 101 

The third option for specifying the computational coordinate system is to read it from a separate file, 
as described in Section 3.2 of Volume 2. The computational (£->K) coordinate system is determmed by a 
set of Ngi x Nn2 x Agj points whose physical Cartesian (x-y-z) coordinates are specified. Here Nci, Na, and 
N a are the number of points in the {, »j, and C directions used to specify the computational coordinate 
system Note that they do not have to be equal to N u N 2 , and V 3 , the number of pomts in the computa- 
tional mesh used for the finite-difference method. 24 Note also that the pomts do not have to be equally 
distributed in physical space along the £, rj, and £ coordinate lines. 

If grid packing is being used, subroutine PAK is called to distribute V, x N 2 x N 3 computational mesh 
points in physical space according to the packing parameters SQ specified by the user, and to interpolate 
among the N m x x N a points in the input computational coordinate system to get the new physical 
Cartesian coordinates of the points in the computational mesh. 

If grid packing is not being used, but Afo, No, and are not equal to V,, N 2 , and V 3 respectively, then 
subroutine PAK is still called. In this case, however, PAK distributes the V, xN 2 x A 3 computational mesh 
points evenly in physical space and then interpolates among the N G i x A 02 x Acs points m the input com- 
putational coordinate system to get the new physical Cartesian coordinates of the pomts m the computa- 

tional mesh. 

In either case, subroutine METS is then called to numerically compute the grid transformation metncs 
and Jacobian. 


m The distinction between the computational coordinate system and the computational mesh is described in Section 
2.2 of Volume 2. 
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Remarks 


1. An error message is generated and execution is stopped if an illegal coordinate system option is speci- 
fied. 

2. With the NGEOM = 10 option, an error message is generated and execution is stopped if N a i, A 
and/or N'a are greater than the dimensioning parameters NIP, N2P, and/or N3P. 
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Subroutine INIT 

Called by 

Calls 

Purpose 

INITC 


Get user-defined initial flow field. 


Input 

* ICVARS 
NIN 

* NOUT 

* Nl, N2, N3 

Output 

P, T, U, V, W 


Flag specifying which variables are being supplied as initial con- 
ditions by subroutine INIT. 

Unit number for namelist input. 

Unit number for standard output. 

Number of grid points N u N 2l and A3, in the */, and C directions. 


Initial flow field values of static pressure p , static temperature T, 
and velocities u , v, and w. 


Description 

Subroutine INIT supplies the user-defined initial flow field. In general, this subroutine will be tailored 
to the problem being solved, and supplied by the user. Details on the variables to be supplied by INIT are 
presented in Section 5. 1 of Volume 2. 

A default version of INIT is supplied with Proteus that specifies uniform flow with constant properties 
everywhere in the flow field. The above list of input and output Fortran variables are for the default version 
of INIT. The default version assumes ICVARS = 2 (the default value), and reads values of /*, uo, vo, w 0 , 
and T 0 from namelist IC. The defaults for these parameters are 1.0, 0.0, 0.0, 0.0, and 1.0, respectively, re- 
sulting in an initial flow field with p = p n u = v — w = 0, and T — T r . 

Remarks 

1. If a value for ICVARS other than 2 is set in the input, a warning message is generated and ICVARS 
is reset to 2. 

2. Subroutine INIT is a convenient place to specify point -by-point boundary condition types and values. 
It's often easier to do this using Fortran coding rather than entering each value into the namelist input 
file. 
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Subroutine INITC 

Called by 

Calls 

Purpose 

MAIN 

EQSTAT 

FTEMP 

INIT 

KEINIT 

REST 

TURBBL 

YPLUSN 

Set up consistent initial conditions based on data from INIT. 


* CMUR 
CP 

* CTHREE 
EP1 

* GAMR 
GC 

* HSTAG 

* ICVARS 

* IHSTAG 

* IREST 
ITBEG 

* ITURB 

* KBC1, KBC2, KBC3 
LWSET 


MU, LA, KT 


* Nl, N2, N3 

PR 

PRR 

* PRT 

RGAS 

* RHOR, UR 
INITIAL FLOW FIELD 


Constant C Pr in formula for Q. 

Specific heat c P . 

Constant C 3 in formula for C p . 

Minimum allowable numerical value. 

Reference ratio of specific heats, y r . 

Proportionality factor g c in Newton's second law. 

Stagnation enthalpy h T used with constant stagnation enthalpy 
option. 

Flag specifying which variables are being supplied as initial con* 
ditions by subroutine INIT. 

Flag for constant stagnation enthalpy option. 

Flag for reading/writing restart file. 

The time level n at the beginning of a run. 

Flag for turbulent flow option. 

Boundary types for the £, */, and £ directions. 

Flags specifying how wall locations are to be determined for the 
turbulence model; 0 if wall locations are to be found automatically 
by searching for boundary points where the velocity is zero, 1 if 
input using the LWALL parameters, 2 if input using the IWALL 
parameters. 

Laminar coefficient of viscosity laminar second coefficient of 
viscosity Xi , and laminar coefficient of thermal conductivity &/. 

Number of grid points Nu V 2 , and in the £, rj, and £ directions. 

Reference pressure p r . 

Reference Prandtl number Pr r . 

Turbulent Prandtl number Pr u or, if PRT < 0, a flag indicating the 
use of a variable turbulent Prandtl number. 

Gas constant R . 

Reference density p r and velocity u,. 

From the user-suppled or default version "of subroutine INIT. 
The combination of variables supplied by INIT is specified by 
ICVARS. See Section 5.0 of Volume 2 for details. 
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Output 


LWALL1, LWALL2, LWALL3 


MU, LA, KT 


MUT, MUTL 
RHO, U, V, W, ET 

RHOL, UL, VL, WL, ETL 

TL 


Flags specifying wall locations for £, rj, and £ boundaries, if not 
set in input. 

Effective coefficient of viscosity p, effective second coefficient of 
viscosity A, and effective coefficient of thermal conductivity k. 

Turbulent viscosity p, at time levels n and n— 1. 

Initial flow field values of static density p, velocities u, v, and w, 
and total energy Et at time level n. 

Initial flow field values of static density p, velocities u, v, and w, 
and total energy E T at time level n — 1 . 

Static temperature T at time level n — 1 . 


Description 


Subroutine INITC sets up consistent initial flow field conditions based on the data supplied by sub- 
routine INIT. For restart cases, subroutine REST is called to read the computational mesh and the initial 
flow field. Otherwise, the data supplied by INIT are used to obtain the density p, the velocities u, v, and 
w, and the temperature T. 25 It then calls FTEMP to compute the laminar viscosity coefficients p, and the 
laminar thermal conductivity coefficient k h and the specific heat coefficients c p and c,. EQSTAT is called 
next to compute the pressure p and to recompute the temperature T. 26 For turbulent flow, the appropriate 
subroutines are called to compute the effective viscosity and thermal conductivity coefficients using the 
turbulence model specified by the user. And finally, for non-restart cases, the values of the dependent var- 
iables at time level n - 1 are set equal to the values at level l. 

The flag ICVARS is used to specify which combination of variables are being supplied by INIT. The 
calculation of p , u, v, w, and T is described below for the different values of ICVARS. In all of the equations 
below, the specific heats are defined by 



Cp = R+ Cy 

where y, is either specified by the user or computed from the reference temperature T r . 
ICVARS = / 


With this option, the density p, the momentum components pu, pv, and pw, and if IHSTAG — 0 the 
total energy E r , are supplied by INIT. Thus, the velocity components are simply 

pu 


pv 



If the energy equation is being solved (IHSTAG = 0), the temperature is computed from 


25 The calculation of T at this point may be approximate. See Remark 1. 

26 See Remark 1. 
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r -i[T L -T<“ 2 + vJ + “’ !) ] 

If the energy equation is being eliminated by assuming constant stagnation enthalpy (IHSTAG = 1), the 
temperature is computed from 


/ C VARS = 2 


With this option, the pressure p and the velocities u, v, and w are supplied by INIT. If the energy - 
equation is being solved (IHSTAG = 0), the temperature T is also supplied by INIT. If it is being elimi- 
nated by assuming constant stagnation enthalpy (IHSTAG = 1), the temperature is computed from 

r “i[' ,r “T ( “ 2+v2+ “ ,2) ] 

The density is then given by 

P 

p RT 

and the total energy is 


-=p[c v t+^V + v 2 



[CVARS = 3 

With this option, the density p and the velocities u, v, and w are supplied by INIT. If the energy 
equation is being solved (IHSTAG = 0), the temperature T is also supplied by INIT. If it is being elimi- 
nated by assuming constant stagnation enthalpy (IHSTAG = 1), the temperature is computed from 

r = ^[^ _ T (w2 + v2 + M,2) ] 


The total energy is then 


E t = p[cyT + y (w 2 + V 2 + w 2 )J 

f CVARS = 4 

With this option, the pressure p and the velocities n, v, and w are supplied by INIT. If the energy 
equation is being solved (IHSTAG = 0), the density p is also supplied by INIT. If it is being eliminated 
by assuming constant stagnation enthalpy (IHSTAG = 1), this option is the same as the ICVARS = 2 op- 
tion. If the energy equation is being solved, then, the temperature is 


T = 


P 

P R 


The total energy is then 


-= p^CyT + y (u 2 + v 2 + w 2 )J 
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ICVARS = 5 


With this option, the static pressure coefficient c p and the velocities u , v, and w are supplied by INIT. 
If the energy equation is being solved (IHSTAG = 0), the temperature T is also supplied by INIT. If it is 
being eliminated by assuming constant stagnation enthalpy (IHSTAG = 1), the temperature is computed 
from 

T= ~t[ hr ~ y ( “ 2 + y2 + w2) ] 

The pressure coefficient is defined by 


iP ~ Pr)Zc 

Cp ~ 2 n 

Pr“rl 2 


The nondimensionalized pressure p = pgdp,u? is thus 


C P , PrZc 
P = — + Y 

Z Pr“r 

or, since p, = p r R T r \g c and the nondimensionalized gas constant R = R T r ju}, 


P = f + R 


The density is then 


and the total energy is 


P 

9 RT 

E t = (« 2 + v 2 + w 2 )J 


ICVARS = 6 

With this option, the pressure p, Mach number M, and flow angles a v and a* are supplied by INIT. If 
the energy equation is being solved (IHSTAG = 0), the temperature T is also supplied by INIT. If it is 
being eliminated by assuming constant stagnation enthalpy (IHSTAG = 1), the temperature is computed 
from 


■- 7 >( 1 +j V l " 2 ) 


where 7> = h T \c r The density is 


RT 


The flow angles are defined by a, = tan~ *(v/w) and a w - tan - ‘(w/u). The Mach number is defined by 


M=\ 


2 2 2 \ 1 
U +V +W \ 


IrRT 


Solving for u, 
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where (v/m ) 2 = tan 2 a„ and (w/u) 2 = tan 2 a„. The remaining velocities are simply 

v = u tan a v 

w = u tan a w 


The total energy is 

E t = P^cj + y (w 2 + V 2 + W 2 )J 


Remarks 

1. If T is not supplied by INIT, it must be computed from the equation of state. The equation of state 
contains a specific heat coefficient (either c p or c v , depending on whether the stagnation enthalpy is as- 
sumed constant or not.) The first time T is computed in INITC, a constant value of specific heat is 
used, consistent with the reference temperature T„ If the user specified constant specific heat (i.e., a 
value for y, was read in), this is not a problem. However, if the temperature -dependent specific heat 
option is being used (i.e., a value for y, was not read in), the equation of state and the empirical equation 
for specific heat are coupled. For this reason T is recomputed in EQSTAT after the specific heats are 
computed in FTEMP. Ideally, this coupling would be handled by iteration between FTEMP and 
EQSTAT. This is not currently done in Proteus , however. 

2. For options in which the pressure p is specified (ICVARS = 2, 4, and 6), the value supplied by INIT 
is redefined as follows: 


This is necessary because input and output values of p are nondimensionalized by the reference pressure 
p r = p r R T n while internal to the code itself p is nondimensionalized by the normalizing pressure 
p n = p r u}. 'ee Section 3.1.1 of Volume 2 for a discussion of the distinction between refereni and nor- 
malizing conditions. 

3. With the ICVARS = 6 option, the initial velocity wwill be limited to non-negative values. 

4. If non-positive pressures or temperatures were computed in EQSTAT, the Fortran variable INEG will 
be positive. An error message will be printed, including a table showing the location of the non-positive 
values. The calculation will stop in INITC. 

5. An error message is generated and execution is stopped if an illegal value is specified for ICVARS. 

6. An error message is generated and execution is stopped if the value of ITURB does not correspond to 
an existing turbulence model. 
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Subroutine INPUT 

Called by 

Calls 

Purpose 

MAIN 

ISAMAX 

Read and print input, perform various initializations. 


Input 

NIN Unit number for namelist input. 

]S T TP Dimensioning parameter specifying the maximum number of en- 

tries in the table of time-dependent boundary condition values. 

NTSEQP Dimensioning parameter specifying the maximum number of time 

step sequences for the time step sequencing option. 

NIP, N2P, N3P Parameters specifying the dimension sizes in the £, rj , and £ di- 

rections. 


Output 

CKMIN 

GAMR 

HSTAG, HSTAGR 


IGAM 


* IPRT1A, IPRT2A, IPRT3A 
ITDBC 


LWALL1, LWALL2, LWALL3 
LWSET 


MACHR 
MUR, KTR 


NEQ 

NPRT1, NPRT2, NPRT3 
PR 

PRLR 
RER, PRR 
RGAS 
UR 


Constant (C Kleb ) min in the Klebanoff intermittency factor. 

Reference ratio of specific heats, y r . 

E)imensionless and dimensional stagnation enthalpy h T for the 
constant stagnation enthalpy option. 

Flag for constant or variable q,, c ¥ , and y ; 0 if they are to be 
computed as functions of temperature, 1 if they are to be treated 
as constant. 

Indices for printout in the £, y\ , and £ directions. 

Flag for time-dependent boundary conditions; 0 if all boundary 
conditions are steady, 1 if any general unsteady boundary condi- 
tions are used, 2 if only steady and time-periodic boundary con- 
ditions are used. 

Flags specifying wall locations for £, rj, and £ boundaries. 

Flags specifying how wall locations are to be determined for the 
turbulence model; 0 if wall locations are to be found automatically 
by searching for boundary points where the velocity is zero, 1 if 
input using the LWALL parameters, 2 if input using the IWALL 
parameters. 

Reference Mach number M r . 

Reference viscosity coefficient n, and thermal conductivity coeffi- 
cient k r . 

Number of coupled equations being solved, N tq . 

Total number of indices for printout in the £, 17 , and £ directions. 
Reference pressure p r . 

Reference laminar Prandtl number Pn r . 

Reference Reynolds number Re r and Prandtl number Pr r . 

Gas constant R . 

Reference velocity 14 . 
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Description 


Subroutine INPUT performs various input and initialization functions. It first reads the title and 
namelist input from the standard input file. Namelist RSTRT is read first, followed by namelist IO. If 
IUNITS = 1, indicating reference conditions will be specified in SI units, various default values and con- 
stants are redefined to be consistent with SI units. The remaining namelists are then read. 

Next, the flags controlling the time step cycling and the convergence testing method are redefined, if 
necessary to be consistent with each other. The number of equations being solved is then determined based 
on the values of IHSTAG. A flag is set if time-dependent boundary conditions are being used^ The 
LWSET flags which specify how wall locations are to be determined for the turbulence model, are defined 
based on the default and input values of the LWALL and IWALL parameters. If the user did not specify 
a value for (C klti ) mim it is set to the default value, which depends on the turbulence model bemg used. 

Next, if frequency of printout in the £, >j, and £ directions is being set by the input arrays IPRT1, 
IPRT2, and IPRT3, the corresponding grid indices are stored in arrays IPRT1A, IPRT2A, and IPRT3A. 
The total number of printout locations in each direction is also determined. 

A header is then written to the standard output file, followed by the input namelists. Note that, for 
variables not specified by the user in the input namelists, the values in this printout will be the default val- 
ues. 

Various checks are made for inconsistent or invalid input, and appropriate error or warning messages 
are written. These are described in Section 7.0 of Volume 2. 

Next, any reference or normalizing conditions not already defined are calculated. The reference and 
normalizing conditions are then written to the standard output file, with the appropriate units. See Section 
3.1.1 of Volume 2 for a discussion of the distinction between reference and normalizing conditions. 

Remarks 

1. The Cray search routine ISAMAX is used in the input consistency check to determine whether any 
implicit artificial viscosity coefficients are non-zero. 
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Function ISAMAX (N,V,INC) 

Called by 

Calls 

Purpose 

BLOUT 

CONY 

FILTER 

INPUT 

RESID 

TIMSTP 


Find the first index corresponding to the largest absolute value of the 
elements of a Fortran vector. 


N 


V 

INC 


Number of elements to process in the vector (i.e., 
N = vector length if INC =1, N = (vector length)/2 if INC = 2, 
etc.). 

Vector to be searched. 

Skip distance between elements of V. For contiguous elements, 
INC = L 


Output 

ISAMAX 


First index corresponding to the largest absolute value of the ele- 
ments of V that were searched. 


Description 

Function ISAMAX finds the first index corresponding to the largest absolute value of the elements of 
a vector. For a one-dimensional vector, the use of ISAMAX is straightforward. For example, 

imax = isamax(np,v,l) 

sets IMAX equal to the index I corresponding to the maximum value of V(I) for I = 1 to NP. 

A starting location can be specified, as in 

imax = 4 + isamax(np-4, v(5) ,1) 

which sets IMAX equal to the index I corresponding to the maximum value of V(I) for I = 5 to NP. 

Multi-dimensional arrays can be used by taking advantage of the way Fortran arrays are stored in 
memory, and specifying the proper vector length and skip distance. For instance, if A is an array dimen- 
sioned NDIM1 by NDIM2 by NDIM3, then 

imax = isamax(ndiml*ndim2*ndim3,a, 1 ) 

sets IMAX equal to the one-dimensional index corresponding to the maximum value of A(I,J,K) for all I, 
J, and K. The maximum value of A can then be referenced as A(IMAX,1,1). 

One dimension at a time can also be searched. For example, 

imax = isamaxCndiml ,a(l ,5,1), 1) 

sets IMAX equal to the index I corresponding to the maximum value of A(I,5,1) for I varying from 1 to 
NDIM1. Similarly, by specifying a skip increment, 
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jmax = isamax(ndim2,a(5, j,l) ,ndiml) 


sets JMAX equal to the index J corresponding to the maximum value of A(5J,1) for J varying from 1 to 
NDIM2. 


Remarks 

1. ISAMAX is a Cray search routine (Cray Research, Inc., 1989b). 
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Function ISAMIN (N,V,INC) 

Called by 

Calls 

Purpose 

BLOUT 

OUTPUT 

TIMSTP 


Find the first index corresponding to the smallest absolute value of the 
elements of a Fortran vector. 


Input 

N 

Number of elements to process in the vector^ (i.e., 
N = vector length if INC = 1, N = (vector length)/2 if INC = 2, 
etc.). 

V 

Vector to be searched. 

INC 

Skip distance between elements of V. For contiguous elements, 
INC = 1. 

Output 

ISAMIN 

First index corresponding to the smallest absolute value of the el- 
ements of V that were searched. 


Description 

Function ISAMIN finds the first index corresponding to the smallest absolute value of the elements of 
a vector. It is used in exactly the same way as ISAMAX. 

Remarks 

1. ISAMIN is a Cray search routine (Cray Research, Inc., 1989b). 
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Function ISRCHEQ (N,V, INC, VALUE) 

Called by 

Calls 

Purpose 

BCGEN 

FILTER 


Find the first index in a vector whose element is equal to a specified 
value. 

Input 


N 

Number of elements to process in the vector (i.e., 
N = vector length if INC =1, N = (vector length)/2 if INC = 2, 
etc.). 

V 

Vector to be searched. 

INC 

Skip distance between elements of V. For contiguous elements, 

INC - 1. 

VALUE 

Value to be searched for in the vector V. 

Output 


ISRCHEQ 

First index, of the elements of V that were searched, whose ele- 
ment is equal to the value V. If the value V is not found, the re- 
turned value will be N + 1. 


Description 

Function ISRCHEQ finds the first index in a vector whose element is equal to a specified value. For 
a one-dimensional vector, the use of ISRCHEQ is straightforward. For example, 

ival = isrcheqCnp, v , 1 , val) 

searches V(I), for I = 1 to NP, for the value VAL, and sets IVAL equal to the first index I for which 
V(I) = VAL. C the value VAL is not found, IVAL will be equal to NP + 1. 

A starting location can be specified, as in 

ival = 4 + isrcheq(np-4 > v( 5) ,l,val) 

which searches V(I), for I = 5 to NP, for the value VAL. 

Multi-dimensional arrays can be used by taking advantage of the way Fortran arrays are stored in 
memory, and specifying the proper vector length and skip distance. For instance, if A is an array dimen- 
sioned NDIM1 by NDIM2 by NDIM3, then 

ival = isrcheq(ndiml*ndim2Xndim3 , a , 1 , val ) 

searches A(I,J,K), for all I, J, and K, for the value VAL, and sets IVAL equal to the corresponding one- 
dimensional index. The desired indices in A can then be recovered from 

i = mod(ival“l ,ndiml) +1 
j = mod(ival“l ,ndiml*ndim2)/ndiml + 1 
k = (ival-l)/(ndiml*ndim2) + 1 


One dimension at a time can also be searched. For example, 

ival = isrcheqCndiml ,a(l , 5 , 1) ,1 , val) 
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searches A(I,5,1), for I = 1 to KDIM1, for the value VAL. Similarly, by specifying a skip increment, 

jval = isrcheq(ndim2,a(5,o»l) ,ndiml,val) 
searches A(5,J,1), for J = 1 to NDIM2, for the value VAL. 

Remarks 

1. ISRCHEQ is a Cray search routine (Cray Research, Inc., 1989b). 
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Function ISRCHFGT (N.V, INC, VALUE) 

Called by 

Calls 

Purpose 

BLIN 

BLOUT 


Find the first index in an array whose element is greater than a specified 
value. 


Input 


N 


y 

INC 

VALUE 

Output 

ISRCHFGT 


Number of elements to process in the vector (i.e., 
N = vector length if INC = 1, N = (vector length)/2 if INC = 2, 
etc.). 

Vector to be searched. 

Skip distance between elements of V. For contiguous elements, 
INC = 1. 

Value to be searched for in the vector V. 


First index, of the elements of V that were searched, whose ele- 
ment is greater than the value V. If the value V is not found, the 
returned value will be N + 1. 


Description 

Function ISRCHFGT finds the first index in a vector whose element is greater than a specified value. 
It is used in exactly the same way as ISRCHEQ. 

Remarks 

1. ISRCHFGT is a Cray search routine (Cray Research, Inc., 1989b). 
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Function ISRCHFLT (N.V.INC, VALUE) 

Called by 

Calls 

Purpose 

BLOUT 


Find the first index in an array whose element is less than a specified 
value. 

Input 



N 


Number of elements to process in the vector (i.e., 
N = vector length if INC =1, N = (vector length) /2 if INC = 2, 
etc.). 

V 


Vector to be searched. 

INC 


Skip distance between elements of V. For contiguous elements, 
INC - 1. 

VALUE 


Value to be searched for in the vector V. 

Output 

ISRCHFLT 

First index, of the elements of V that were searched, whose ele- 


ment is less than the value V. If the value V is not found, the re- 
turned value will be N + 1 . 


Description 

Function ISRCHFLT finds the first index in a vector whose element is less than a specified value. It 
is used in exactly the same way as ISRCHEQ. 

Remarks 

1. ISRCHFLT is a Cray search routine (Cray Research, Inc., 1989b). 
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Subroutine KEINIT 

Called by 

Calls 

Purpose 

INITC 

PRODCT 

TURBBL 

YPLUSN 

Get user-defined initial conditions for k and z. 


Input 

* CMUR 

* CTHREE 

* Nl, N2, N3 

* RER 
RHO 

Output 

E, EL 
KE, KEL 
MUTL 


Constant C„ r in formula for C u . 

Constant Q in formula for C H . 

Number of grid points Ni, jV 2 , and A 3 , in the f , tj, and C directions. 
Reference Reynolds number Re n 
Static density p at time level n. 


Turbulent dissipation rate z at time levels n and n — 1. 
Turbulent kinetic energy k at time levels n and n — 
Turbulent viscosity at time level n— 1. 


Description 

Subroutine KEINIT supplies the user-defined initial values of the turbulent kinetic energy k and the 
turbulent dissipation rate s. In general, this subroutine will be tailored to the problem being solved, and 
supplied by user. Details on the variables to be supplied by KEINIT are presented in Section 5. 1 of Volume 
2 . 


A default vevsion of KEINIT is supplied with Proteus that computes the initial values of k a^d z using 
the assumption of local equilibrium (dissipation equals production.) The above list of input and output 
Fortran variables are for the default version of KEINIT. 

The steps involved in the default version of KEINIT are described below. 

1. Initialize k and e to zero. 

2. Call TURBBL to compute turbulent viscosity values and to locate solid walls in the computational 
domain. 

3. Call YPLUSN to compute and the minimum distance to the nearest solid wall. 

4. Call PRODCT to compute the production rate of turbulent kinetic energy. 

5. Compute k and z using 


c * - c ,,(> - s”*) 


z = 


h 

Re r p 


k = 
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6. Set the values of k, t, and at time level n - 1 equal to their values at time level n. 

Remarks 

1. The scratch array DUMMY, from the common block DUMMY 1, is used to store the values of the 
distance to the nearest wall. The array is filled in subroutine YPLUSN, 

2. The Fortran array VORT, from the common block TURB1, is used to store the values of the pro- 
duction rate of turbulent kinetic energy. The array is filled in subroutine PRODCT. 
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Program MAIN 

Called by 

Calls 

Purpose 


BCSET 

CONV 

EQSTAT 

EXEC 

FTEMP 

GEOM 

INITC 

INPUT 

OUTPUT 

OUTVV 

PLOT 

PRTHST 

REST 

TBC 

TIMSTP 

TREMAIN 

TURBBL 

TURBCH 

Manage overall solution. 


Input 

None. 

Output 
IT 

ITEND 
ITSEQ 
TAU 

Description 

The MAIN program is used to manage the overall solution. The steps involved are described below. 
Preliminary Steps 

1. ' Call INPUT to read and print the input, and perform various initialization procedures. 

2. Unless this is a restart case, call GEOM to get the computational coordinates and metric data. 

3. Call INITC to get the initial flow field. 

4. Call BCSET to set various boundary condition parameters and flags, and to print the input boundary 
condition types and values. 

5. Initialize the plot file, 27 and, if requested by the user, write the initial or restart flow field into the plot 
file. 

6. If requested by the user, print the initial or restart flow field. 


27 The initialization procedure depends on the type of plot file being written. See the description of subroutine PLOT. 


Current time step number n. 

Final time step number. 

Current time step sequence number. 
Current time value t. 
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7. Compute NTSUM, the maximum total number of marching steps to be taken, and ITEND, the cor- 
responding final index on the time marching loop. Set the initial values of ITSEQ, the time step se- 
quence number, and ITSWCH, the time index for switching to the next sequence, both to zero. 

Time marching loop 

8. Begin the time marching loop. The loop index IT corresponds to the known time level n . Each iter- 
ation of the loop thus corresponds to a step from time level n to n + 1. 

9. If at the end of a time step sequence, update ITSEQ, the time step sequence number, and 
ITSWCH, the time index for switching to the next sequence. 

10. For the first time step, and every IDTMOD'th step thereafter, call TIMSTP to compute the new 
time step At. For every time step update the time value t. 

11. If time-dependent boundary conditions are being used, call TBC to set the boundary condition 
values. 

12. Call EXEC to solve the equations. 

13. Call EQSTAT to compute the pressure p and temperature T from the equation of state. If either 
is non-positive, indicating a non-physical solution, skip forward to step 17. 

14. Call FTEMP to compute the laminar viscosities ju/ and the laminar thennal conductivity k l} and 
the specific heats c p and q. 

15. For turbulent flow, call the appropriate subroutines to compute the effective viscosity and thermal 
conductivity coefficients using the turbulence model specified by the user. 

16. Every ICHECK time levels, call CONV to check for convergence. 

17. Call TREMAIN to find out how much CPU time remains. 

18. If requested by the user, or if the calculation is converged, or if non-positive pressures or temper- 
atures were computed, or if the job is near the CPU time limit, print the flow field at time level 
*+ 1. 

19. If requested by the user, or if the calculation is converged, or if non-positive pressures or temper- 
atures were computed, or if the job is near the CPU time limit, write the flow field at time level 
n + 1 into the plot file. 

20. If non-posulve pressures or temperatures were computed, write an error message showing Ue lo- 
cation of the non-positive values and skip forward to step 25, ending the calculation. 

21. If the calculation is converged, print a message and skip forward to step 24, ending the calculation. 

22. If the job is near the CPU time limit, print a message and skip forward to step 24, ending the cal- 

culation. 

23. End of time marching loop. Print a message indicating the calculation did not converge. 

Final Steps 

24. If requested by the user, call REST to write the restart file. 

25. If first-order time differencing and steady boundary conditions were used, call PRTHST to print the 
convergence history. 

Remarks 

1. The starting index for the time marching loop is ITBEG. For a non-restart case ITBEG = 1, and thus 
the initial starting flow field is at time level 1. For a restart case ITBEG = n, where n is the time level 
stored in the restart file, and thus the starting flow field is the previously computed flow field at time 
level n. 

2. The ending index for the time marching loop is ITEND = ITBEG -I- NTSUM — 1, where NTSUM is 
the total number of time steps to be taken. For a non-restart case, then, the time marches from level 
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1 to level 1 + NTSUM. For a restart case, the time marches from level ITBEG to level 
ITBEG + NTSUM. 

3. The logic involving NTSUM, ITSEQ, and ITSWCH is used to implement the time step sequencing 
option. This allows one CFL number or time increment to be used for a specified number of steps, 
followed by another CFL number or time increment for another specified number of steps, etc. 28 If this 
option is not used, NTSUM is simply equal to NTIME(l) and ITSEQ is always 1. 

4. An error message is generated and execution is stopped if the value of ITURB does not correspond to 
an existing turbulence model. 

5. Although the calculation will stop if p or T < 0, as noted above in step 19, the standard output and plot 
fde will include the time level with the non-positive values, if that is consistent with the IPRT and IPLT 
input parameters in namelist 10. The restart file will not be written. 


28 See Section 3.1.9 of Volume 2 for details on how to invoke the time step sequencing option. 
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Subroutine METS 

Called by 

Calls 

Purpose 

GEOM 

REST 

OUTPUT 

Compute metrics of nonorthogonal grid transformation. 


DXI, DETA, DZETA 

* IDEBUG 

* IVOUT 

* NOUT 

* Nl, N2, N3 
X, Y, Z 


Computational grid spacing A£, Arj, and A£. 

Debug flags. 

Flags specifying variables to be printed. 

Unit number for standard output. 

Number of grid points Ni, N 2 , and A3, in the C, > 7 , and C directions. 
Cartesian coordinates x, y, and z. 


Output 

ETAX, ETAY, ETAZ, ETAT 
IVOUT 

JI 

XIX, XIY, XIZ, XIT 

ZETAX, ZETAY, ZETAZ, 
ZETAT 


Metric coefficients rj y , »j 2 , and tj,. 

Flags specifying variables to be printed (temporarily redefined for 
debug output of metrics.) 

Inverse Jacobian of the nonorthogonal grid transformation, J~ ’. 
Metric coefficients £„ £ 2 , and 

Metric coefficients G, and 


Description 

Subroutine METS computes the metric coefficients and the Jacobian for the generalized nonorthogonal 
coordinate transformation. The metric coefficients are defined in terms of the known (x-y-z) coordinates 
of the computational mesh as: 

tx = ■ / KV){ - 0^)r,] 

= A{XrZ) n - ■ 

^ 

n x = JKy&t - 0 ^] 

>7 y = •/[(**% - 

y\ 2 = - (^){] 

C* = - Gy),] 

C y = A{Xr, Z )> ~ ( X l Z )r,1 

i 2 = 

£ t = — ~~ y?£y ~ Z t^2 
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r\ { — x^ x y?*Jy Zyr \ 2 

C/ = ” x ^x ~~ y£y ~ Z £z 

where J is the Jacobian of the transformation, given by 

J = -pr = [xjOyfc - y&) + - y&) + ~ yft)T 1 

The derivatives of x, y , and z with respect to the computational coordinates are computed numerically 
using the same difference formulas as used for the governing equations. At interior points the centered 
difference formula presented in Section 5.0 of Volume 1 is used. At boundaries three-point one-sided dif- 
ferencing is used. For £ -derivatives at the £ = 0 and £ = 1 boundaries, 

df "b 4 /w ±\ ~~ fw ±2 

IF ~ ± 2M 

where w represents the <J-index at the boundary' (i.e., either 1 or N\). Where a + sign appears, the + sign 
is used at the £ = 0 boundary, and the — sign is used at the £ = 1 boundary. An analogous formula is used 
for */- derivatives at the yj = 0 and r{ = 1 boundaries, and for ^-derivatives at the £ — 0 and C 1 boundaries. 

Remarks 

1. Several local three-dimensional Fortran arrays (XXI, XETA, etc.), are used in METS to store the de- 
rivatives x >, x v etc. These arrays are equivalenced to flow variables from common block FLOW1, 
which, at the point METS is called, have not yet been assigned values. These flow variables are set 
equal to zero at the end of METS. 

2. Since the current version of Proteus is limited to meshes that do not vary with time, the derivatives x T , 
y T9 and z? are set equal to zero. 

3. This subroutine generates the output for the IDEBUG(7) option. - 

4. An error message is generated and execution is stopped if the grid transformation Jacobian J changes 
sign or equals zero. This indicates that the computational mesh contains crossed or coincident grid 
lines. The error message is followed by a printout of the Cartesian coordinates, the Jacobian, and the 
metric coefficients. 
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Subroutine OUTPUT (LEVEL) 

Called by 

Calls 

Purpose 

MAIN 

METS 

IS AMIN 

PRTOUT 

VORTEX 

Manage printing of output. 


Input 

CP, cv 

DTAU 

DUMMY 

DXI, DETA, DZETA 
E, KE 

ETAX, ETAY, ETAZ, ETAT 

* GAMR 
GC 

* IVOUT 
JI 

LEVEL 

LWALL1, LWALL2, LWALL3 

* MACHR 
MU, LA, KT 

MUT 

* NOUT 

* N1.N2, N3 

P, T 

PR 

PRR 

* PRT 
RGAS 

RHO, U, V, W, ET 

* RHOR, TR, UR 
TAU 

X, Y, Z 

XIX, XIY, XIZ, XIT 

ZETAX, ZETAY, ZETAZ, 
ZETAT 


Specific heats c p and c v . 

Time step At. 

A three-dimensional scratch array. 

Computational grid spacing Af , A*;, and AC- 
Turbulent dissipation rate t and kinetic energy k , 

Metric coefficients tj x , rj y , r\ z , and rj t . 

Reference ratio of specific heats, y r . 

Proportionality factor g c in Newton's second law. 

Flags specifying variables to be printed. 

Inverse Jacobian of the nonorthogonal grid transformation, 

Time level to be printed. 

Flags specifying wall locations for £, >7, and C boundaries. 
Reference Mach number M r . 

Effective coefficient of viscosity p, effective second coefficient of 
viscosity X } and effective coefficient of thermal conductivity 

Turbulent viscosity coefficient p t . 

Unit number for standard output. 

Number of grid points N u A2, and Ni, in the £, >7, and £ directions. 
Static pressure p and temperature T. 

Reference pressure p r . 

Reference Prandtl number Pr r . 

Turbulent Prandtl number Pr t . 

Gas constant R . 

Static density p, velocities u , v, and w, and total energy' E r . 
Reference density p r , temperature T n and velocity u r . 

Time value t. 

Cartesian coordinates x, y, and z. 

Metric coefficients £„ and 

Metric coefficients £*, £ y , ( z , and £ f . 
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Output 


ATITLE A 20-character title for variable being printed. 

DUMMY A three-dimensional array containing the variable to be printed. 

Description 

Subroutine OUTPUT manages the printing of the standard output. The variables available for printing 
are listed and defined in Table 3-3 of Volume 2. The user-specified array IVOUT controls which variables 
are printed. 

Each variable to be printed is stored, in turn, in the scratch array DUMMY, from the common block 
DUMMY 1. The title printed with the variable is stored in the character array ATITLE. Subroutine 
PRTOUT is then called to execute the actual write statements. 

Remarks 

1. A warning message is printed if a non-existent output variable is requested. The printout will continue 
with the next requested output variable. 

2. For output options 30, 31, 34, and 35, involving the pressure />, the value stored internally in the 
Proteus code is redefined as follows: 

Pr u f 

p = p ~p& 

This isjiecessary because input and output values of p are nondimensionalized by the reference pressure 
p r = p r R T r , while internal to the code itself p is nondimensionalized by the normalizing pressure 
Pn = p r u}. See Section 3.1.1 of Volume 2 for a discussion of the distinction between reference and nor- 
malizing conditions. 

3. The definitions of k, and k, (IVOUT = 92 and 102) assume a constant turbulent Prandtl number is 
being specified in namelist TURB. If the input value of PRT < 0, indicating the use of a variable tur- 
bulent Prandtl number, the printed values of k, and k, will be incorrect. 
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Subroutine OUTW (LEVEL) 

Called by 

Calls 

Purpose 

MAIN 


Compute and print parameters at boundaries. 


Input 

CP 

DXI, DETA, DZETA 
ETAX, ETAY, ETAZ 
GC 

* IPRT1A, IPRT2A, IPRT3A 

* IW0UT1, IWOUT2, IWOUT3 

LEVEL 
MU, KT 

* NOUT 

NPRT1, NPRT2, NPRT3 

* Nl, N2, N3 
P, T 

PR 

PRR 

* RER 

* RHOR, UR 
U, V, W 

X, Y, Z 

XIX, XIY, XIZ 
ZETAX, ZETAY, ZETAZ 


Specific heat c p . 

Computational grid spacing A£, A*/, and A£. 

Metric coefficients y \ x , rj y , and r\ z . 

Proportionality factor g c in Newton's second law. 

Indices for printout in the £, 17 , and £ directions. 

Flags specifying for which boundaries parameters are to be 
printed. 

Time level being printed. 

Effective coefficients of viscosity p, and thermal conductivity k. 
Unit number for standard output. 

Total number of indices for printout in the tj, and £ directions. 
Number of grid points N u AY and AY in the £, y\, and £ directions. 
Static pressure p and temperature T. 

Reference pressure p r . 

Reference Prandtl number Pr r . 

Reference Reynolds number Re r . 

Reference density p n and velocity u,. 

Velocities u, v, and w. 

Cartesian coordinates x , y 7 and z. 

Metric coefficients £*, £ y , and £ z . 

Metric coefficients £„ £ >} and £ z . 


Output 

None. 

Description 

Subroutine OUTVV computes and prints various parameters along the computational boundaries. The 
variables available for printing are listed and defined in Table 3-3 of Volume 2. The user- specified arrays 
IWOUT1, IWOUT2, and IWOUT3 specify at which boundaries parameters are printed, and whether 
normal derivatives are to be computed using two-point or three-point one-sided differencing. 

The parameters printed are the Cartesian coordinates x, y, and 2 , the static pressure p, the skin friction 
coefficient c fi the shear stress t w , the static temperature 7, the heat transfer coefficient h , the heat flux q W7 
and the Stanton number St. Note that some of these are meaningful only if the boundary is a solid wall. 

The skin friction coefficient is defined as 
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c /=- 


-in 

** dn 

TPr u r 


Re r ^ dn 


where the overbar denotes a dimensional quantity In this equation dV,jdn represents the normal derivative 
of the tangential velocity, with the normal vector n directed into the flow field. 


For a £ boundary, the tangential velocity is 

v t = 4 v \+ v \ 

where K, and V < are the velocities in the >7 and £ directions. From the descriptions of subroutines BCV2 
and BCV3, 


n n 2 T 

y/4 + yi +z v 

XrU + yrV + ZrW 

Vr = —, ===- 

\! x l+yl + z l 

Using the equations in Section 6.4 of Volume 1, dV r jdn for a £ boundary is thus computed as 


dK 

dn 



where 

m = yftx + %y + if 

The + sign is used at the £ = 0 boundary, and the - sign is used at the £ = 1 boundary. 

For an >7 boundary, the tangential velocity is 

V t = yfi J+*f 

From the description of subroutine BCV1, 

x*u + ytv -f z*w 
V,= 7 — 

\/ x g +yf + 

Thus, for an >7 boundary, 

3 K 5F, , _ , dU. 

^7- (>?A + + »f A) + (fx +Vy + Vz) + -jg- (nA + V-v + ’fcW 

where 

/ 2 . 2 7 2 

™ = \/lx + yy + t !2 

For an n boundary, the tangential velocity is 


dn ~ ™ 
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Thus, for a £ boundary, 


dV' 

dn 


= + 


m 


dV r d V t d V * . 2 2 2 \ 

-gf (C A + (Cjflx + Cjrtj, + Crfr) + (Cx + Cy + Cx) 


where 


The shear stress t* is defined as 


t w is thus nondimensionalized by \i r u T \Lr . 

The heat flux q w is defined as 

where dTjdn represents the normal derivative of the temperature. For a £ boundary, 

-g- - ± 4- [ ■ («S + + ( 1 ) + % «. A + Vi, + {*) + -f - («. + + « j] 

where 

W = Vd + ^ + £ 

For an rj boundary, 

= ± -jjf £ -|y- (ix^x + 1ySy + (d + d + d) + "a£~ + ’h'd + 

where 

rr rr i 

m = v + >7y + *?z 

And for a £ boundary, 

= ± [ ■ ~ (W, + + CA) + (Crf* + C/fy + ^ (C* + + d)] 




^JL 




= -k 


dT 

dn 


where 

m = \/£x + Cj + Cz 


q w is thus nondimensionalized by k r T r ILr. 

The heat transfer coefficient /i is defined as 

-k— 

, gw an. 

T — 1 7-1 


This is the nondimensional form of the equation 
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_* JL 

Y 4w dn 

T-T r T-T r 


h is thus nondimensionalized by k T jL r . 


The Stanton number Si is defined as 


St = 


h h 

Pr“rC p °P 


1 

Re r Pr r 
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Subroutine PAK (IDIR,NOLDl,NOLD2,NOLD3) 


Called by 

Calls 

Purpose 

GEOM 

CUBIC 

ROBTS 

Manage packing and/or interpolation of grid points. 


Input 

IDIR Direction flag; 1 if grid points are being redistributed in the £ di- 

rection, 2 if in the y direction, 3 if in the £ direction. 

* IPACK 

NOLD1, NOLD2, NOLD3 

* NOUT 

* N1, N2, N3 

* SQ 
X, Y, Z 

Output 

X, Y, Z Cartesian coordinates x , y, and z in the new grid. 


Flags for gnd packing option. 

Number of grid points in the £, ?/, and £ directions in the original 
grid. 

Unit number for standard output. 

Number of grid points N\, N 2 , and in the £, q, and £ directions. 
An array specifying the location and amount of packing. 

Cartesian coordinates jc, y, and z in the old grid. 


Description 


Subroutine PAK manages the redistribution of the user- specified points in the computational coordinate 
system. It is called whenever grid packing is used. It is also called when interpolation is necessary because 
the computational coordinates are specified by reading them from a separate file (the NGEOM =10 option 
in subroutine GECM), and the number of points in the file is different from the number of points *o be 
used in the calculation. PAK is called once for each direction in which points are being redistributed. 


The steps involved in subroutine PAK are described below. For clarity, this discussion assumes 
IDIR = 1 (i.e., we are redistributing points in the £ direction.) An exactly analogous procedure is used for 


IDIR = 2 and 3, 


1. Set NNEW and NOLD equal to the index limits in the £ direction for the new and old grids. Also set 
NOPP1 and NOPP2 equal to the index limits in the rj and £ directions for the old grid. 

2. Get (a P ) h the normalized physical arc length along a coordinate line in the £ direction, from the begin- 
ning of the line to each grid point in the new grid. The normalizing distance is the total arc length of 
the line, and thus these arc lengths apply to any coordinate line in the £ direction. If the points are not 
being packed in the £ direction, but only interpolated, then 

( \ /- ! 

\ a P)i NNEW ~ 1 

for / = 1 to NNEW. In the new grid, the points will thus be evenly distributed in physical space along 
each coordinate line in the £ direction. If the grid points are being packed in the £ direction, subroutine 
ROBTS is called to compute ( a P )< from the packing parameters specified by the user. 

3. Begun double loop from IOPP1 = 1 to NOPP1 and from IOPP2 = 1 to NOPP2. This double loop thus 
runs over the points in the rj and £ directions in the old grid. We will be redistributing points in the £ 
direction for each r\ and £ value in the old grid. 
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4 . 


Get (aup)„ the normalized physical arc length along a coordinate line in the £ direction, from the 
beginning of the line to each grid point in the old grid. These values are found by first computing 
the non-normalized arc lengths, as follows: 


( a t/i>)i - o 


( a up)i ~ ( a up)i - i 


+ k~ x i~] J, k) 2 + (ft J, k ~ yi - 1 ,j, k) 2 


for i — 2 to NOLD 1 . These values are normalized by setting 


( a up)i - 


( a Up)i 

( a t//>)NOLDl 


for i = 1 to NOLD1. To eliminate any problems with roundoff error, (u^noldi is explicitly set 
equal to 1. 

5. Given x and a UP for the old grid, and a P for the new grid, call CUBIC to interpolate for x in the 
new grid. Similarly interpolate for y and z. 

6. Redefine the Fortran variables X, Y, and Z as the x, y, and z coordinates in the new grid. 

7. End of double loop over the points in the r\ and £ directions in the old grid. 


Remarks 


1. In the Fortran code, the comments sometimes refer to the "packing" direction. This terminology' ac- 
tually means the direction in which grid points are being redistributed, even if they are not being packed 
but only interpolated. Similarly, references to the "packed" and "unpacked" grid actually mean the new 
and old grids. 

2. An error message is generated and execution is stopped if an invalid grid packing option is requested. 
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Subroutine PERIOD 


Called by 

Calls 

Purpose 



Define extra line of data for use in computing coefficients for spatially 
periodic boundary' conditions. 


Input 

CP, cv 
E, EL 

ETAX, ETAY, ETAZ, ETAT 
JI 

KBCPER 

KE, KEL 
MU, LA, KT 

MUT, MUTL 
NPT1, NPT2, NPT3 


* Nl, N2, N3 

P, T 

RHO, U, V, W, ET 


RHOL, UL, VL, WL, ETL 
TL 

XIX, XIY, XIZ, XIT 

ZETAX, ZETAY, ZETAZ, 
ZETAT 


Specific heats c p and c, at time level n. 

Turbulent dissipation rate t at tune levels n and n — 1. 

Metric coefficients rj x , rj y , t] 2 , and rp. 

Inverse Jacobian of the nonorthogonal grid transformation, J~ '. 

Flags for spatially periodic boundary conditions in the £, rj, and £ 
directions; 0 for non-periodic, 1 for periodic. 

Turbulent kinetic energy k at time levels n and n— 1. 

Effective coefficient of viscosity p, effective second coefficient of 
viscosity 2, and effective coefficient of thermal conductivity k. 

Turbulent viscosity p t at time levels n and n — 1. 

M, N 2 , and Ni for non-periodic boundary' conditions, or Ni + 1, 
N 2 + 1, and Ni+ l for spatially periodic boundary conditions, in 
£, rj, and £, respectively. 

Number of grid points N u N 2 , and N 3 , in the £, >j, and £ directions. 
Static pressure p and temperature T at tune level n. 

Static density p, velocities u, v, and w, and total energy Er at time 
level n. 

Static density p, velocities «, v, and w, and total energy E from 
previous ADI sweep. 

Static temperature T from previous ADI sweep. 

Metric coefficients £*, £„ £„ and 
Metric coefficients £„ £„ £„ and £ t . 


Output 

All of the flow and metric-related input parameters listed above, at / = M + 1 for periodic boundary 
conditions in the £ direction, at j =N 2 +\ for periodic boundary conditions in the »j duection, and at 
k = N 3 + 1 for periodic boundary conditions in the £ direction. 


Description 

Subroutine PERIOD adds, in effect, an additional set of points at / = A, + 1 for periodic boundary 
conditions in the £ direction, at j = N 2 + 1 for periodic boundary conditions in the rj direction, and at 
fc = A'j + 1 for periodic boundary' conditions in the £ direction. This allows us to use central differencing 
in the periodic direction, at / = Ni,j = N 2 , and/or k = A 3 , computing the coefficient submatrices and source 
term sub vector in the same way as at the interior points. 25 


29 See Section 7.2.2 of Volume 1 for details on the solution procedure for spatially periodic boundary conditions. 
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For periodic boundary conditions in the c, direction, the extra points are added by setting 

/v, + \,j,k = f2J,k 

where j= 1 to N 2 and k = 1 to N%, and / represents one of the flow variables or metrics. Similarly, extra 
points are added at (i, N 2 + 1 , k) for periodic boundary conditions in the rj direction, and at (/, j, + 1) for 
periodic boundary conditions in the C direction. 
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Subroutine PLOT (LEVEL) ' 

Called by 

Calls 

Purpose 

MAIN 


Write files for post-processing by CONTOUR or PLOT3D plotting 
programs. 


Input 



CP, cv 

Specific heats c p and c*. 


ETAX, ETAY, ETAZ 

Metric coefficients rj Xi t] y , and rj z . 

* 

GAMR 

Reference ratio of specific heats, y r . 


GC 

Proportionality factor g c in Newton's second law. 

* 

IPLOT 

Flag specifying type of plot file to be written. 


LEVEL 

Time level to be written into the file (0 for initialization,) 

* 

LR, UR, RHOR, TR 

Reference length Lr, velocity u n density p n and temperature T r . 

* 

MACHR 

Reference Mach number M r . 

* 

NOUT 

Unit number for standard output. 

* 

NPLOT 

Unit number for writing CONTOUR file, or PLOT3D Q file. 

* 

NPLOTX 

Unit number for writing PLOT3D XYZ file. 

* 

Nl, N2, N3 

Number of grid points A r i, A r 2 , and A 3 , in the and £ directions. 


P, T 

Static pressure p and temperature T. 


PR 

Reference pressure p r . 

* 

RER 

Reference Reynolds number Re r . 

* 

RG 

Dimensional gas constant R . 


RGAS 

Dimensionless gas constant R . 


RHO, U, V, W, ET 

Static density p, velocities w, v, and w, and total energy £>- 


TAU 

Current time value t. 

* 

TITLE 

Case title. 


X, Y, Z 

Cartesian coordinates x, y, and z. 


XIX, XIY, XIZ 

Metric coefficients &*, £ y , and 


ZETAX, ZETAY, ZETAZ 

Metric coefficients and £ 2 . 


Output 

None. 

Description 

Subroutine PLOT writes a file or files, commonly called plot files, for post-processing by the CON- 
TOUR or PLOT3D plotting programs. The type of files written is controlled by the user-specified pa- 
rameter I PLOT. The format and contents of the different types of plot files are described in detail in Section 
4.2 of Volume 2. They are therefore described only briefly here. 
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CONTOUR Plot File ( [[PLOT = 1) 


If IPLOT = 1, a CONTOUR plot file is written with the title and reference conditions included at each 
time level. The value of n is written into the header for each time level, but t, the time itself, is not written 
into the file. No initialization step is necessary. 

PLOT 3D WHOLE Plot Files (IPLOT = 2) 

If IPLOT = 2, XYZ and Q files are written in PLOT3D/WHOLE format. The XYZ file is written only 
during the initialization step. The Q file is written at each time level requested by the user. The Q file will 
thus consist of multiple sets of data, each containing the computed results at a single time level. The tune 
ti.i.i is written into the header for each set of data in the Q file. 

PLOT3D.PLANES Plot Files (IPLOT = 3) 

If IPLOT = 3, XYZ and Q files are written in PLOT3D/PLANES format. The XYZ file is written only 
during the initialization step. The Q file is written at each time level requested by the user. The Q file will 
thus consist of multiple sets of data, each containing the computed results at a single time level. The time 
ti,i,i is written into the header for each set of data in the Q file. 


Remarks 


1. In defining the pressure to be written into the CONTOUR plot file, the value stored internally in the 
Proteus code is redefined as follows: 


P = P 


Pr“r 

PrSc 


This is_necessary because input and output values of p are nondimensionalized by the reference pressure 
p r = p r R T r , while internal to the code itself p is nondimensionalized by the normalizing pressure 
p n = p r u }. See Section 3.1.1 of Volume 2 for a discussion of the distinction between reference and nor- 
malizing conditions. 

2. The current version of PLOT3D does not work for multiple time levels, although future versions might. 
Thus the IPLOT = 2 and 3 options, while containing multiple time levels, cannot easily be used to 
create plo* 0 showing the time development of the flow. 

3. Note that the time n,i,i written into the Q file header with the IPLOT = 2 and 3 options is the time 
at the point c, = y = £ = 0. If the input variable IDTAU = 5 or 6, t will vary in space and therefore 

Tj,j, 

4. PLOT3D assumes that velocity is nondimensionalized by the reference speed of sound a, = (y r R T r ) 1 ’ 2 , 
and that energy is nondimensionalized by p,c&. In Proteus these variables are nondimensionalized by 
u, and p r u}. That is why the reference Mach number M, appears in the definitions of the Q variables 
written into the plot file. 

6. An error message is generated and execution is stopped if an illegal plot file option is requested. 
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Subroutine PRODCT 


Called by 


KEINIT 

TURBCH 



Purpose 


Compute production term for the k-z turbulence model. 


Input 

DXI, DETA, DZETA 
ETAX, ETAY, ETAZ 
KE 
MUT 

* Ml, N2, N3 

* RER 

RHO, U, V, W 
XIX, XIY, XIZ 
ZETAX, ZETAY, ZETAZ 


Computational grid spacing A£, Ay, and AC- 
Metric coefficients *j y , and tj x . 

Turbulent kinetic energy k at time level n. 

Turbulent viscosity p, at time level n. 

Number of grid points N\, Ni, and ;V 3 , in the £, »j, and £ directions. 
Reference Reynolds number Re r . 

Density p, and velocities u, v, and w at time level n. 

Metric coefficients £„ £„ and 
Metric coefficients £„ C y , and £ z . 


Output 

VORT Production rate of turbulent kinetic energy. 

Description 

Subroutine PRODCT computes the turbulent kinetic energy production rate using 


where 





dw 

dw 

dz 


h ay 

dx 

dv dw 

dy dz 


To evaluate the spatial derivatives, the centered difference formulas presented in Section 5.0 of Volume 1 
are used at interior points, and second-order one-sided difference formulas are used at boundary points. 

Remarks 

1 To save storage space, this subroutine uses the Fortran variable VORT to store the turbulent kinetic 
energy production rate. Care must be taken when this subroutine is used together with subroutine 
VORTEX. 
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Subroutine PRTHST 


Called by 

Calls 

Purpose 

MAIN 


Print convergence history. 

Input 



* ICHECK 


Convergence checking interval. 

♦ IREST 


Flag for reading/writing restart file. 

IT 


Last computed time step number n. 

ITBEG 


The time level n at the beginning of a run. 

NC, NXM, NYM, NZM, NEN Array indices associated with the continuity, x-momentum, 

y-momentum, z-momentum, and energy equations. 

NEQ 


Number of coupled equations being solved, N eq . 

* NHIST 


Unit number for convergence history file. 

* NHMAX 


Maximum number of time levels allowed in the printout of the 
convergence history file (not counting the first two, which are al- 
ways printed.) 

* NOUT 


Unit number for standard output. 


Output 

None. 

Description 

Subroutine PRTHST prints the convergence history as part of the standard output. The information 
is obtained frc 1 the unformatted convergence history file written in subroutine RESID. The A arameters 
printed are described in Section 4.1.6 of Volume 2, and the unformatted convergence history file is described 
in Section 4.3 of Volume 2. To avoid undesirably long tables, the convergence parameters are printed at 
an interval that limits the printout to NHMAX time levels. As described in Section 4.1.6 of Volume 2, 
however, they are always printed at the first two time levels. 


Proteus 3-D Programmer's Reference 


4.0 Proteus Subprograms: PRTHST 241 








Subroutine PRTOUT (ATITLE, LEVEI .,A\ AR) 


Called by 

Calls 

Purpose 

OUTPUT 


Print output. 


Input 

ATITLE 

AVAR 

DTAU 

* IDTAU 

* IPRT1A.-IPRT2A, IPRT3A 
LEVEL 

♦ LR, UR 

♦ NOUT 

NPRTl, NPRT2, NPRT3 
TAU 

Output 

None. 


A 20-character title for variable being printed. 

A three-dimensional array containing the variable to be printed. 
Time step At. 

Flag for time step selection method. 

Indices for printout in the £, y, and £ directions. 

Time level to be printed. 

Reference length L and velocity 
Unit number for standard output. 

Total number of indices for printout in the £, y, and £ directions. 
Current time value t. 


Description 

Subroutine PRTOUT performs the actual printing of the standard output file. It prints the variable 
AVAR with the title ATITLE. The output is printed in blocks, with each block corresponding to a £ lo- 
cation. ’ Within' each £ block, the output is printed in columns running in the y direction. The rows run in 
the £ direction. If he results at every grid point are printed, there will be a total of V 3 blocks, each >lock 
with Ni columns, and each column with N 2 rows. Within each £ block, the columns are grouped in super- 
rows of up to 10 columns each. 


The steps involved are as follows: 

1. Set the total number of blocks, columns, and rows per super-row. 

2. Redefine AVAR, the input array containing the variable to be printed, including only the elements re- 
quested. 

3. Determine the number of super-rows. If NCOL is not exactly divisible by 10, the last super-row in each 
block will have less than 1 0 columns. 

4. Begin loop over the number of £ blocks. 

5. Print the title for the variable, and the £ index. If the time step is constant in space, the dimensional 
time t and time step At are printed with the title. 

6. Begin loop over the number of super-rows. 

7 Set NCI and NC2 equal to the number of the first and last column in this super-row. (I.e, for 
the first super-row NCI and NC2 will be 1 and 10, for the second they will be 1 1 and 20, etc. 
For the last super-row, NC2 will be NCOL.) 

8 Print the heading for the super-row, labeling each column with the proper £ index. 

9. Print the super-row itself, labeling each row with the proper y index. 
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10. End of loop over the number of super-rows. 

11. End of loop over the number of C blocks. 
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Subroutine RES ID (IAVR) 


Called by 

Calls 

Purpose 

EXEC 

ISAMAX 

SASUM 

SNRM2 

Compute residuals and write convergence history file. 


Input 

CHGAVG 

CHGMAX 

DTAU 

DUMMY 

* EPS 
IAVR 

* IAV2E, IAV4E 

* ICHECK 

* ICTEST 

* IDTAU 

* IHSTAG 
IT 

ITBEG 

13 

* LR, UR 
LRMAX 

NEQ 

* NHIST 

* NITAVG 

NPT1, NPT2, NPT3 

* Nl, N2, N3 
NIP, N2P 

RESAVG 

RESL2 


Maximum change in absolute value of the dependent variables, 
averaged over the last NITAVG time steps, AQ„ 2 . 

Maximum change in absolute value of the dependent variables 
over previous time step (or NITAVG — 1 tune steps if 
ICTEST = 2), AQ„„. 

Time step At. 

A three-dimensional scratch array. 

Convergence level to be reached, c. 

Flag specifying whether residual is computed without or with the 
artificial viscosity terms; 1 for without, 2 for with. 

Flags for second- and fourth-order explicit artificial viscosity. 

Convergence checking interval. 

Flag for convergence criteria to be used. 

Flag for time step selection method. 

Flag for constant stagnation enthalpy option. 

Current time step number n. 

The time level n at the beginning of a run. 

Grid index k in the £ direction. 

Reference length L, and velocity u,. 

Grid indices i,j, and k, in the £, »j, and £ directions, corresponding 
to the location of RESMAX. 

Number of coupled equations being solved, N c „. 

Unit number for convergence history file. 

Number of time steps in moving average convergence test. 

Ni, Ni, and N 3 for non-periodic boundary conditions, A'i + 1 , 
Ni+ 1 , and V 3 + 1 for spatially periodic boundary conditions in 
£, rj, and £. 

Number of grid points N u N 2 , and Ay in the £, r\, and £ directions. 

Parameters specifying the dimension sizes in the c. and rj di- 
rections. 

The sum of the absolute values of the residual through the £ index 
13-1. 

The sum of the squares of the residual through the £ index 
13-1. 
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/ 


RESMAX 

S 

TAU 

Output 

LRMAX 

RESAVG 

RESL2 

RESMAX 


The maximum absolute value of the residual, R m „, through the £ 
index 13—1. 

Source term subvector S for first ADI sweep. 

Current time value t. 


Grid indices i,j, and k, in the £, ij, and £ directions, corresponding 
to the location of RESMAX. 

The sum of the absolute values of the residual through the £ index 
13, or, if I3 = NPT3— 1, the average absolute value of the resi- 
dual, Rovj. 

The sum of the squares of the residual through the £ index 13, or, 
if 13 = NPT3 — 1, the L 2 norm of the residual, R i2 . 

The maximum absolute value of the residual, R m „, through the £ 
index 13. 


Description 

Subroutine RESID computes various measures of the residual, and writes the convergence history' file. 

For problems without artificial viscosity, the steady-state form of the governing partial differential 
equations can be written as 

n d_E d¥ d_G , &v , &v , &v 

d£ dr, dC d^ dr, d£ 

The residual is defined as the number resulting from evaluating the right hand side of the above equation. 
For first-order time differencing, this is simply the source term for the first ADI sweep, divided by the time 
step At . 30 The residual at a specific grid point and time level is thus 

Kj,k=Kj,kl( Ar )u,k 


where S is the source term for the first ADI sweep. Separate residuals are computed for each governing 
equation. 

Adding artificial viscosity, however, changes the governing equations. With artificial viscosity, the dif- 
ference equations actually correspond to the following differential equations at steady state. 31 


0 = - 


+ 


dE 


A 

o F 


8G 


+ ■ 


d Er 


5F* 


d£ dr, 5£ d£ dr, 


A 

dGp 


,P) 

J 

„<4> 

£ £ 

J 


, d(JQ) 2 o(JQ) 2 
(A£) 2 + (A r,) 2 — K - t L + (A£) 2 




dr," 


a o(JQ) a d (JQ) 4 
(A£) 4 + (An) 4 + (A£) 4 


ar 


dr. 


1 A 

a (/Q) 

5£ 2 

a 4 (^Q) 

a £ 4 


30 See equation (7.5a) in Volume 1. For first-order time differencing, O 2 = 03 = 0. 

31 These equations represent the use of the constant coefficient artificial viscosity model. The nonlinear coefficient 
model is more complicated, but the same principle applies. 


Proteus 3-D Programmer's Reference 


4.0 Proteus Subprograms: RESID 245 



For cases run with artificial viscosity, therefore, the residual should include the explicit artificial viscosity 
terms. The implicit terms do not appear, since they difference AQ, and in the steady form of the equations 

AQ = 0. Since the explicit artificial viscosity terms are added to the source term for the first ADI sweep, 
they are automatically included in the residual. 

Three measures of the residual are computed for each governing equation - the U norm of the residual, 
the average absolute value of the residual, and the maximum absolute value of the residual. In addition, 
the (£, n ,0 indices corresponding to the location of the maximum residual are saved. The L 2 norm of the 
residual is defined as 

-,-E^r 

In computing the residuals, the summations, maximums, and averages are over all interior grid points, plus 
points on spatially periodic boundaries. RES ID is called from inside a loop in the £ direction. The calcu- 
lation of the residual is thus not complete until the last time through this loop, when the £ index 
13 = NPT3 - 1. 


For cases run with artificial viscosity, subroutine RESID is called from EXEC both before and after the 
artificial viscosity terms have been added to the equations. The residuals are thus computed both with and 
without the artificial viscosity terms. This may provide some estimate of the overall error in the solution 
introduced by the artificial viscosity. Convergence is determined by the residuals with the artificial viscosity 
terms included. 

In addition to computing the residuals, subroutine RESID writes the convergence history file. The 
contents and format of this file are described in detail in Section 4.3 of Volume 2. 

Remarks 

1. The Cray BLAS routines SNRM2 and SASUM are used in computing the U norm of the residual and 
the average absolute value of the residual, respectively. The Cray search routine ISAMAX is used in 
computing the maximum absolute value of the residual. 

2. The scratch array DUMMY, from the common block DUMMY1, is used to store the values of the 
residual at each grid point. 


* 
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Subroutine REST (IOPT) 

Called by Calls 

IMTC METS 

MAIN 


Purpose 

Read and/or write restart file. 


Input When Reading the Restart File 


* GAMR 

* HSTAG 


♦ IHSTAG 
IOPT 

♦ 1TURB 

♦ NRQIN 

♦ NRXIN 
RGAS 


Reference ratio of specific heats, y,. 

Stagnation enthalpy h T used with constant stagnation enthalpy 
option. 

Flag for constant stagnation enthalpy option. 

Flag specifying I/O operation; 1 to read, 2 to write. 

Flag for turbulent flow option. 

Unit number for reading the restart flow field. 

Unit number for reading the restart computational mesh. 
Dimensionless gas constant R. 


Input When Writing the Restart File 


E, KE 


EU, KEU 

IOPT 

IT 

* ITURB 

* MACHR 

* NRQOUT 

* NRXOUT 

* Nl, N2, N3 
+ RER 

RHO, U, V, W, ET 


RHOU, UU, VU, WU, ETU 


X, Y, Z 


Turbulent dissipation rate e and kinetic energy k at time level 
n+ 1. 

Turbulent dissipation rate t and kinetic energy k at time level n. 
Flag specifying I/O operation; 1 to read, 2 to write. 

Current time step number n. 

Flag for turbulent flow option. 

Reference Mach number M,. 

Unit number for writing the restart flow field. 

Unit number for writing the restart computational mesh. 

Number of grid points N\, .V 2 , and A3, in the £, rj, and C directions. 
Reference Reynolds number Re,. 

Static density p, velocities u, v, and w, and total energy E T at time 
level n + 1 . 

Static density p, velocities u, v, and w, and total energy E r at time 
level _ 

Cartesian coordinates x, y, and z. 


Output When Reading the Restart File 


DXI, DETA, DZETA Computational grid spacing A£, A»j, and AC- 

E KE Turbulent dissipation rate e and kinetic energy k at time level 

ITBEG. 


EL KEL Turbulent dissipation rate e and kinetic energy k at time level 

ITBEG- 1. 
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ITBEG 
MACHR 
Nl, N2, N3 
RER 

RHO, U, V, W, ET 

RHOL, UL, VL, WL, ETL 

T, TL 
X, Y, Z 


The time level n at the beginning of the new run. 

Reference Mach number M r - 

Number of grid points N\, A 2, and A3, in the c , , rj, and C directions. 
Reference Reynolds number Re r . 

Static density p, velocities u, v, and w, and total energy E r at time 
level ITBEG. 

Static density p, velocities u, v, and w, and total energy E T at time 
level ITBEG - 1. 

Static temperature T at time levels ITBEG and ITBEG — 1. 
Cartesian coordinates x, y, and z. 


Output When Writing the Restart File 

None. 


Description 

Subroutine REST reads and/or writes the restart files. Restarting a calculation requires two unformatted 
files - one containing the computational mesh and one containing the. flow field. 

If subroutine REST is being used to read the restart files, the computational mesh is first read from unit 
NRXIN. The grid increments A£, A>j, and AC are then set, and subroutine METS is called to compute the 
metric coefficients and the Jacobian of the grid transformation. 

The flow field file is read next, from unit NRQIN. It normally contains the results at the last two time 
levels that were computed during the previous run. If only one level is present in the file, however, the re- 
sults at level n - 1 are set equal to those at level n. If the previous run used the two-equation turbulence 
model, the turbulence variables are also read from the file. The beginning time level for the time marching 
loop is set equal to the level stored in the restart file. The flow field variables in the restart file are the 
conservation variables Q, nondimensionalized as in the plotting program PLOT3D. 32 They therefore must 
be converted into the primitive variables used in Proteus. The temperature is then computed from the 
perfect gas equation of state, with c„ and c, defined using the input reference conditions. 

When writing the restart files, the file containing the computational mesh is written onto unit 
NRXOUT The primitive flow variables are then redefined as conservation variables and 
nondimensionalized as in PLOT3D. They are then written onto unit NRQOUT If the current run used 
the two-equation turbulence model, the turbulence variables are also wntten into the file. 

Remarks 

1. If, in the input namelist RSTRT, NRXOUT and NRQOUT are set equal to NRXIN and NRQIN, 
respectively, the output restart files will overwrite the input restart files. 

2. Except for the turbulence variables and the variables at time level n— 1, the restart files have the same 
format as the XYZ and Q files created using the IPLOT = 3 option. These restart files can thus also 
be used as XYZ and Q files for the PLOT3D plotting program. The turbulence variables and the 
variables at time level n— 1 will not be read by PLOT3D. 

3. The temperature T is computed using the equation of state, which contains a specific heat coefficient 
(either c p or c v , depending on whether the stagnation enthalpy is assumed constant or not.) In sub- 
routine REST, a constant value of specific heat is used, consistent with the reference temperature T r . 
If the user specified constant specific heat (i.e., a value for y, was read in), this is not a problem. 
However, if the temperature-dependent specific heat option is being used (i.e., a value for y r was not 


32 See Sections 4.2.3 and 4.4 of Volume 2. 
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read in), the equation of state and the empirical equation for specific heat are coupled. For this reason, 
in INITC (the routine that calls REST), T is recomputed by calling EQSTAT after the specific heats 
have been computed in FTEMP. Ideally, this coupling would be handled by iteration between 
FTEMP and EQSTAT. This is not currently done in Proteus, however. 
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Subroutine ROBTS (NP,A,B,XP) 

Called by 

Calls 

Purpose 

PAK 


Pack points along a line using Roberts transformation. 


Input 


A 

B 

NP 

Output 

XP 


Parameter a in Roberts transformation formula specifying lo- 
cation of packing: 0.0 to pack near XP = 1 only, 1.0 to pack near 
XP = 0 only, and 0.5 to pack equally at XP = 0 and 1.0. 

Parameter /? in Roberts transformation formula specify ing amount 
of packing. A value approaching 1.0 from above gives denser 
packing. 

Number of grid points along the line. 


Coordinates of packed grid points along the line. 


Description 

Subroutine ROBTS packs points along a line of length one using a transformation due to Roberts 
(1971). The basic transformation is given by 

_ V + 2*)tf'-fi + 2a 
^ (2<x + l)(l + Pr*) 


where 




l±l 

P-1 


X UP~ a 


and xp and Xvp are the packed and unpacked (i.e., evenly spaced) coordinates along the line. The parameter 
a determines the packing location. For a = 0, the points will be packed only near xp — 1 , and for a — 1/2 
the points will be packed equally near xp = 0 and Xp = 1 . The packing parameter /? determines the amount 
of packing. It is a number greater than 1, but generally 1.1 or below. The closer $ is to 1, the tighter the 
packing will be. 

It may seem logical to set a = 1 to pack points near Xp = 0. With the basic transformation, however, 
this doesn't work. In Proteus we get around this problem by replacing a in the above transformation with 
a„, where or* = a if a = 0 or 1/2, and a„ = 0 if a = 1. If a = 0 or 1/2, no further action is necessary. If 
a = 1, however, we must invert the resulting x P values and re-order the indices. I.e., for i = 1 to NP , we set 

( x Pl)i = 1 — ( x p)i 


After this operation, the array Xpp will run from 1 to 0, packed near 1. To re-order the indices, for i 1 to 
NP we set 


( x p)ffP-i+ l — (*w)i 

After this operation, x P will run from 0 to 1, packed near 0. 
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Finally, to ensure round-off error doesn't affect the endpoint values, we set (xj>)i = 0 and (xp)_\-p — 1. 


Remarks 

1. The namelist input variable SQ(IDIR,1), which is used to specify the packing location in direction 
IDIR, is actually equal to 1 - a. Therefore, setting SQ(IDIR,1) = 0 results in packing near the £, rj, 
or C = 0 boundary, and SQ(IDIR,1) = 1 results in packing near the £, >j, or £ = 1 boundary. 
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Function SASUM (N,V,INC) 

Called by 

Calls 

Purpose 

RESID 


Compute the sum of the absolute values of the elements of a vector. 


Input 

N 

Number of elements in the vector to be summed. 

V 

Vector to be summed. 

INC 

Skip distance between elements of V. For contiguous elements, 
INC = 1. 

Output 

SASUM 

Sum of the absolute values of the elements of V . 


Description 

Function SASUM computes the sum of the absolute values of the elements of a vector. For a one 
dimensional vector, the use of SASUM is straightforward. For example, 

np 

sasum(np,v,l) = ^ V- t 
i= 1 


A starting location can be specified, as in 


sasumC np- 4 , vC 5) , 1 ) 


5 >. 

; = s 


Multi-dimensional arrays can be used by taking advantage of the way Fortran arrays are stored in 
memory, and specifying the proper vector length and skip distance. For instance, if A is an array dimen- 
sioned NDIM1 by NDIM2 by NDIM3, then 


sasumC ndiml*ndim2*ndim3 , a , 1 ) 


ndiml ndim2 ndim3 

I £ Zaa. 


i = 1 j = 1 k = 1 


One dimension at a time can also be summed. For example, 


sasumC ndiml ,a(l>5,2) >1) 


ndiml 

Yj Ai ’ 5 - 2 


i = 1 


Similarly, by specifying a skip increment, 

sasumC rid dm2 ,a(5;l;2)j ndiml 1 


ndim2 

Yj 


7=1 


Remarks 

1. SASUM is a Cray BLAS (Basic Linear Algebra Subprograms) routine (Cray Research, Inc., 1989b). 
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Subroutine SGEFA (A, LDA, N, IPVT, INFO) 

Called by 

Calls 

Purpose 

BCELIM 

BVUP 

ISAMAX 

Factor a matrix using Gaussian elimination. 


Input 

A 

LDA 

N 

Output 

A 


IPVT 

INFO 

Description 


An array containing the matrix A to be factored, dimensioned as 
A(LDA,N). 

The leading dimension of the array A. 

The order of the matrix A. 


An upper triangular matrix and the multipliers which were used 
to obtain it. The factorization can be written as A = LU, where 
L is a product of permutation and unit lower triangular matrices, 
and U is upper triangular. 

A vector of length N containing pivot indices. 

An error flag: 0 for normal operation, k if U ** = 0. 


Subroutine SGEFA is used in combination with subroutine SGESL to solve the matrix equation 
Ax = B. If the Fortran arrays A and B represent A and B, where A is a square N by N matrix and B is a 
matrix (or vector) with NCOL columns, and if the leading dimension of the Fortran array A is LDA, then 
the Fortran sequence 


call sgefa Ca^ldajn/ipvtjinfoD 
do 10 j = l,ncol 

call sgesl ( a , Ida , n , ipvt , bC 1 , j ) , 0 ) 

10 continue 

computes A _1 B, storing the result in B. 

Remarks 

1. SGEFA is a Cray LINPACK routine (Cray Research, Inc., 1989b; Dongarra, Moler, Bunch, and 
Stewart, 1979). 
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Subroutine SGESL (A,LDA,N,IPVT,B,JOB) 

Called by 

Calls 

Purpose 

BCELIM 

BVUP 


Solve the matrix equation Ax = B or A T x = B using the factors com- 
puted by SGEFA. 

Input 


A 

The two-dimensional output array A from SGEFA containing the 
factorization of matrix A. 

B 

The right-hand side vector B. 

I PVT 

The output array IPVT of pivot indices from SGEFA. 

JOB 

Flag specifying type of matrix equation: 0 to solve Ax = B; non- 
zero to solve A T x = B. 

LDA 

The leading dimension of the array A. 

N 

The order of the matrix A. 

Output 


B 

The solution vector x. 


Description 

Subroutine SGESL is used in combination with subroutine SGEFA to solve the matrix equation 
Ax = B. See the description of subroutine SGEFA for details. 

Remarks 

L SGESL is a Cray LINPACK routine (Cray Research, Inc., 1989b; Dongarra, Moler, Bunch, and 
Stewart, 1979). 
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Function SXRM2 (N,V,INC) 


Called by I Calls 


RESID 


Purpose 


Compute the L 2 norm of a vector. 


The number of elements in the vector V. 

The vector whose norm is to be computed. 

Skip distance between elements of V. For contiguous elements, 
INC = 1. 


Output 


SNRM2 


The L 2 norm of the vector V. 


Description 

Function SNRM2 computes the L 2 norm of a vector. For a one-dimensional vector, the use of SNRM2 
is straightforward. For example, 


/ : 

snrm2(np, v, 1 ) = I y V\ 


A starting location can be specified, as in 


snrm2(np 


/ V 

-4 , v( 5) 1 ) = I > 


Multi-dimensional arrays can be used by taking advantage of the way Fortran arrays are stored in 
memory, and specifying the proper vector length and skip distance. For instance, if A is an array dimen- 
sioned NDIM1 by NDIM2 by NDIM3, then 


snrm2 CndimlXndim2*ndim3 , a , 1 ) = 


ndiml ndim2 ndim3 


A 2 

^i,j, k 


i = 1 ; = 1 k == 1 


One dimension at a time can also be summed. For example, 


snrm2(ndiml 


/ noimi 

,a(l,5,2),l) = I y a; 


Similarly, by specifying a skip increment, 
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1/2 


snrm2(ndim2 ,a( 5 , 1 ,2) , ndiml ) 



Remarks 

1. SNRM2 is a Cray BLAS (Basic Linear Algebra Subprograms) routine (Cray Research, Inc., 1989b). 
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Subroutine SWDOWN 

Called by 

Calls 

Purpose 

EXECT 


Compute coefficients and source terms, and solve the k-z equations for 
the downward LU sweep. 

Input 



* CMUR 


Constant C„ r in formula for C„. 

* CONE 


Constant C } in the production term of the z equation. 

* CTHREE 


Constant C 3 in formula for C M . 

* CTWOR 


Constant C 2r in formula for C 2 . 

DTAU 


Time step At. 

DUMMY 


Distance to the nearest solid wall. 

DW 


A 

Dependent variable sub vector Aw from upward LU sweep. 

DXI, DETA, DZETA 

Computational grid spacing Af , A*/, and A£. 

E 


Turbulent dissipation rate z at time level n . 

ETAX, ETAY, ETAZ 

Metric coefficients rj xi rj yi and 

JI 


Inverse Jacobian of the nonorthogonal grid transformation, J~ x . 

KE 


Turbulent kinetic energy k at time level n . 

MU 


Laminar viscosity ^ i t at time level n . 

MUT 


Turbulent viscosity /x, at time level n. 

NPT1, NPT3 

N u N 2 , and N$ for non-periodic boundary conditio: N\+ 1, 

N 2 + 1 , and Nz -f 1 for spatially periodic boundary conditions in 
£, n , and C- 

* RER 


Reference Reynolds number Re r . 

RHO, U, V, 

W 

Static density p f and velocities w, v, and w, at time level n. 

* SIGE, SIGK 


Constants a t and o k used in the diffusion term of the z equation 
and k equations, respectively. 

* TFACT 


Factor used in computing the k-z time step. 

THKE 


Parameters B x and 0 2 determining type of time differencing for the 
k-z equations. 

VORT 


Production rate of turbulent kinetic energy. 

xrx, XIY, XIZ 

Metric coefficients £„ £ y , and 

YPLUSD 


Nondimensional distance y + from the nearest solid wall. 

ZETAX, ZETAY, ZETAZ 

Metric coefficients and £*. 


Output 


DW 


Dependent variable subvector AW" from downward LU sweep. 
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Description 

Subroutine SWDOWN performs the downward LU sweep to solve for the final values of the unknown 
vector AW" in the k-t equations. The equation used for the downward sweep is 

AW* = AW 

_ 

The Jacobian coefficient matrices B, D, and F are made up of terms of the form JdgfdZ, Jdgld*t, and 
fdgldl, respectively. The terms (S t B)\ (W. and (<5 f F) + are the forward difference parts of the central 
differences S^B, S^D, and <5{F, respectively. Thus 


/ dg \ {ft 


(fi + 1 + yDte + 1 ~ &) (ft fi- t)(& £i — 


{b i Bf = 


2(A^) 2 

(fi + 1 +,$(&+ l ~&) 

2m 2 


Analogous expressions can be derived for D and F. Expanding the difference terms in the downward sweep 
equation, we thus get 


i+ 


At 

1+^0 


| C/4- 1 + i C(// + i + l 

r 1 ; i a 7 * ^2 


A£ ' A>j AC 2(A£) 

CC5+1 + 7/)Cgy + i ~ [C4 + l + A)(gfe + l ~ Bkfl 


2(Af;) 2 


2(AC) 


(M + N) 


A „ A * 

AW* = AW 


where the superscripts 5, Z>, and F denote the terms belonging to the Jacobian coefficient matnces B, D, 
and F, respectively. 

This equation „ust be solved for the final unknown vector AW" at (i,j, k). It can be seen that ti nght 
hand side of this equation is at the intermediate time level *, and that the coefficients on the left hand side 
are at time level n, and thus known. In addition, the conditions m the planes (N u j, k), fi, Nt,k), and 
(i,j, N z ) at time level n + 1 are known, because they are the upper boundaries of the computational domain, 
and the boundary conditions are being treated explicitly. 

The marching procedure and the addressing scheme used in this subroutine is analogous to those dis- 
cussed in the description of subroutine SWUP. 
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Subroutine SWUP 

Called by 

Calls 

Purpose 

EXECT 


Compute coefficients and source terms, and solve the k-t equations for 
the upward LU sweep. 


Input 


* 

CONE 

Constant C x in the production term of the t equation. 

* 

CTWOR 

Constant C 2f in formula for C 2 . 


DTAU 

Time step At. 


DUMMY 

Distance to the nearest solid wall. 


DW 

Dependent variable subvector AW'*" 1 from previous time step. 


DXI, DETA, DZETA 

Computational grid spacing A£, A*/, and AC- 


E, EL 

Turbulent dissipation rate t at time levels n and 77—1. 


ETAX, ETAY, ETAZ 

Metric coefficients rj x , r \ y , and v\ z . 


JI 

Inverse Jacobian of the nonorthogonal grid transformation, J~ l . 


KE, KEL 

Turbulent kinetic energy k at time levels n and n — 1. 


MU 

Laminar viscosity pi at time level n. 


MUT, MUTL 

Turbulent viscosity p t at time levels n and 72 — 1. 


NPT1, NPT2, NPT3 

Nu N 2 , and Nz for non-periodic boundary conditions, N x + 1, 
N 2 + 1 , and Nz + 1 for spatially periodic boundary conditions in 
and £* 

+ 

RER 

Reference Reynolds number Re r . 


RHO, U, , ,W 

Static density p t and velocities u , v, and w, at time level 7. 


RHOL 

Static density p at time level n — 1. 

* 

SIGE, SIGK 

Constants a t and c k used in the diffusion term of the t equation. 

* 

TFACT 

Factor used in computing the k-t time step. 

* 

THKE 

Parameters 6 X and d 2 determining type of time differencing for the 
k-t equations. 


VORT 

Production rate of turbulent kinetic energy. 


XIX, XIY, XIZ 

Metric coefficients { „ $ yi and 


YPLUSD 

Nondimensional distance y + from the nearest solid wall. 


ZETAX, ZETAY, ZETAZ 

Metric coefficients £*» and 

Output 



DW 

A 

Dependent variable subvector AW* from upward LU sweep. 

Description 



Subroutine SWUP performs the upward LU sweep to solve for the intermediate values of the unknown 
vector AW* in the k-t equations. The equation used for the upward sweep is 
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9 X At 

1 -b $2 


[8JA + + 8~C+ + 81 E + - ( 8,B)~ - (6/>) - 



n 


AW = RHS(9.34) 


where RHS(9.34) represents the right hand side of equation (9.34) in Volume 1. The Jacobian coefficient 
matrices B, D, and F are made up of terms of the form fdgld^fdgldr), and fdgjdC, respectively. The terms 
{6(B)-, and (<5 f F)- are the backward difference parts of the central differences Sfl, 6J), and 8 ( F, re- 

spectively. Thus 


S^B = 



(fi + i “h + 1 Si) 1 )C?i Si — l) 

~~ 2(A£) 2 


(<5^r = - 


2(A^ 2 


Analogous expressions can be derived for D and F. Expanding the difference terms in the upward sweep 
equation, we thus get 



T 

1 + #2 


Af-At.y e 1zILi M±^ni 

+ A>j + "AC 2(A£) 2 


[(^ + J; - Q(Sj ~ ^ - i)3 + [(4 + A - i)tec ~ gfc - l)] 

+ 2(A n f + 2(AQ 2 


:]} »• 


= RHS(9.34) 


where the superscripts Z?, D , and F denote the terms belonging to the Jacobian coefficient matrices 5, Z), 
and F f respectively. 


This equation must be solved for the intermediate unknown vector AW* at (ij\ k). It can be seen that 
the right hand side of this equation, and the coefficients on the left hand side, are at time level n , and thus 
known. In addition, the conditions in the planes (I,/, k) f (z, 1, k) t and (z,y, 1) at time level * are known, 
because they are the lower boundaries of the computational domain, and the boundary conditions are being 
treated explicitly. Tnerefore, it is possible to solve this equation by marching point by point from point (2, 
2, 2) to point (A r i - 1, N 2 — 1, M - 1). The conditions in the planes (M,/, k), (/, N 2 , k), and (z, j, Nz) are 
known because they are the upper boundaries of the computational domain. 

The marching order is unimportant, as long as the march is from the point (2, 2, 2) to point (N\ - 1, 
jV 2 — 1 t Nz — 1), For example, this could be accomplished using the following pseudo-code: 

do 10 il = 2,nl-l 

do 10 i2 = 2,n2-l 

do 10 i3 = 3>n3-l 

dw(il,i2,i3) = function of q(il,i2,i3), dw(il-l ,i2,13) , 
dw( il , i2-l ,13 ) , and dw(il,i2,i3-l) 

10 continue 

where Q represents the flow field properties and DW is the unknown vector. The Fortran indices II, 12, 
and 13 correspond to the grid indices z',y, and k , respectively. 

The coding above is correct, but it does not take full advantage of the Cray s vectorization capability. 
Because it contains two nested do loops, only the innermost loop is vectorized. However, if the marching 
is done in the direction normal to the diagonal planes of constant z + j + K then the code can be constructed 
with only one nested do loop, taking better advantage of the Cray's vectorization capability. I.e., 

do 10 iplane = l,nplane 
do 10 ipoint = l,npoint 
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dwCipoint, iplane) = function of qCipoint, iplane) and dwCipoint , iplane) 
10 continue 

where NPLANE is the number of diagonal planes in the 3-D computational domain, and NPOINT is the 
number of interior grid points contained within a diagonal plane. Note that NPOINT varies from plane 
to plane. It turns out that the points (II - 1, 12, 13), (II, 12 - 1, 13), and (II, 12, 13 - 1) are all located in 
the plane IPLANE — 1, and they are known. As the result, the inner loop in the above code can be 
vectorized over every point in a diagonal plane. 

An addressing scheme is needed to translate the indices (IPOINT, IPLANE) to (II, 12, 13) so that flow 
properties at (11,12,13) can be recalled in the marching process. There are many ways that this can be ac- 
complished, and in subroutine SWUP a scheme has been devised to compute the II, 12, and 13 indices from 
the do loop indices IPOINT and IPLANE. This scheme does not require any special machine- specific 
routines, and will work for any FORTRAN 77 compiler. Basically, this scheme works as follows: 

1. The II index of every point in a diagonal plane is stored in the array ILOC(IPOINT). 

2. The diagonal line index of every point in a diagonal plane is computed and stored in the array 
LINE(IPOINT). 

3. Inside the nested inner loop, the II, 12, and 13 indices are then computed from the ILOC(IPOINT) and 
the LINE(IPOINT) arrays as follows: 

11 = iloc(ipoint) 

12 = -il + line(ipoint) + 3 

13 = iplane - il * i2 + 5 
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Subroutine TBC 


Called by 

Calls 

Purpose 

MAIN 


Set time-dependent boundary condition values. 


* GTBCl, GTBC2, GTBC3 
IT 

ITBEG 

ITEND 

* JBC1, JBC2, JBC3 

* JTBC1, JTBC2, JTBC3 
NBC 

NEQ 

* NOUT 

* NTBC 

* NTBC A 

* Nl, N2, N3 

Output 

FBC1, FBC2, FBC3 
GBC1, GBC2, GBC3 


Time-dependent surface mean flow boundary condition values for 
the £, rj, and £ directions. 

Current time step number n. 

The time level n at the beginning of a run. 

Final time step number. 

Surface mean flow boundary condition types for the £, rj, and £ 
directions. 

Flags for type of time dependency for mean flow boundary con- 
ditions in the £, r?, and £ directions. 

Dimensioning parameter specifying number of boundary condi- 
tions per equation. 

Number of coupled equations being solved, N cq . 

Unit number for standard output. 

Number of values in tables for general unsteady boundary condi- 
tions. 

Time levels at which general unsteady boundary conditions are 
specified. 

Number of grid points M, and in the £, > 7 , and £ directions. 


Point-by-point mean flow boundary condition values for the 
yj, and £ directions. 

Surface mean flow boundary condition values for the £, rj, and £ 
directions. 


Description 

Subroutine TBC sets time-dependent mean flow boundary condition values. Two types of time de 
pendency are allowed - general and periodic. 


General Time-Dependent Boundary Conditions 

General time-dependent boundary conditions are set using linear interpolation on an input table of 
boundary condition values vs. time level. Thus, the boundary condition value is 


g 


/!+ 1 


i n + 1 ~ n r , i+ 1 

= gt + ~TT\ & 

Tit n t 


i+ 1 


Here n is the current known time level in the time marching scheme^, and n, represent the input table of 
bomd^ condition values vs. time level, and i is the index m the table for which 
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n\ < n + 1 < n \ + 1 

If 72 + 1 < n }, then g n " 1 is set equal to the first value in the table, gj. Similarly, if tz + 1 > n? t where N is the 
index of the last entry in the table, then g "* 1 is set equal to the last value in the table, g?. 

In Fortran, g—G BC1, GBC2, or GBC3, ^ f = GTBCl, GTBC2, or GTBC3, rt r = NTBCA, and 
N = NTBC. 

Time- Periodic Boundary Conditions 

Time-periodic boundary conditions (not to be confused with spatially periodic boundary conditions) are 
of the form 

g" * ' +sl H s?<” +!) + **] 

where g} through gf are given by the first four elements of GTBC1, GTBC2, or GTBC3. 

Remarks 

1. An error message is generated and execution is stopped if an invalid type of unsteadiness is requested 
for the boundary values. 
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Subroutine TIMSTP 


Called by 

Calls 

Purpose 

MAIN 

ISAMAX 

ISAMIN 

Set computational time step. 


♦ CFL 

* CFLMIN, CFLMAX 


CHGMAX 

* CHG1, CHG2 

CP.CV 

* DT 
DTAU 

* DTF1, DTF2 


♦ DTMIN, DTMAX 


DXI, DETA, DZETA 
EP2 

ETAX, ETA\ , ETAZ, ETAT 

* IDTAU 
IT 

ITSEQ 

MU 

* NDTCYC 
NEQ 

* NOUT 
NTOTP 


+ 

* 


Nl, N2, N3 

RER 

RGAS 

RHO, U, V, W 
T 

XIX, XIY, XIZ, XIT 


CFL number in IDTAU = 1 , 2 , 5, 6 , 8 , and 9 options. 

Minimum and maximum CFL numbers allowed in IDTAU = 2 
and 6 options. 

Maximum change in absolute value of the dependent variables 
over previous time step (or NITAVG — 1 time steps if 
ICTEST = 2), AQ™,*. 

Minimum and maximum change, in absolute value, that is al- 
lowed in any dependent variable before increasing or decreasing 
At in IDTAU = 2, 4, and 6 options. 

Specific heats c p and c, at time level n. 

Time step At in IDTAU = 3 and 4 options. 

Old computational time step At. 

Factors multiplying or dividing At if solution changes too slowly 
or quickly in IDTAU = 2, 4, and 6 options. 

Minimum and maximum At allowed in IDTAU = 4 option, or 
used in IDTAU = 7 option. 

Computational grid spacing Af, A»j, and AC- 
Maximum allowable numerical value. 

Metric coefficients > 7 *, rj y , t]., and rj t . 

Flag for time step selection method. 

Current time step number n. 

Current time step sequence number. 

Effective coefficient of viscosity p at time level n. 

Number of time steps per cycle for IDTAU = 7 option. 

Number of coupled equations being solved, N, q . 

Unit number for standard output. 

Dimensioning parameter specifying the storage required for a full 
three-dimensional array (i.e., NIP x N2P x N3P). 

Number of grid points N\, N 2 , and Ni, in the £, */, and £ directions. 

Reference Reynolds number Re r . 

Gas constant R. 

Static density p, and velocities u, v, and w, at time level n. 

Static temperature T at time level n. 

Metric coefficients £*, <£*, and 
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ZETAX, ZETAY, ZETAZ, 
ZETAT 


Metric coefficients f and £,. 


Output 

CFL 

DTAU 

Description 


New CFL number in IDTAU = 2 and 6 options. 
New computational time step At. 


Subroutine TIMSTP computes the time step size At. The following sections describe the various 
methods currently available for setting and/or modifying At. 

IDTAU = 1 

This option sets a global (i.e., constant in space) time step At equal to the minimum of the values at 
each grid point computed from the input parameter CFL(ITSEQ). I.e., 

At = (CFL) rrnn(Az c fj) 
ij, k J 

where At c/1 is the inviscid CFL limit, given in generalized coordinates as (Shang, 1984). 

2 


A v = 


u 

AC 


+ 


Ayj 


+ 


<y fly (,y 

"aF + a^ + aT 


W 

AC 


+ 


+ a\ 


Cx C x 

+ -A- + - 


AC Aij AC 


AC 


+ 


j£_ + i£.y 

An ac ; 


1 / 2 ' 


. - 1 


Here U — Cr + C»w + C>v + C 2 w, V = t\, + a nd W= C, + C»w + C> v + C*w are the 

contravariant velocities without metric normalization, and a — JyRT is the speed of sound. 

IDTA U = 2 

For the first time step, this option is identical to the IDTAU = 1 option. After the first time step, 
however, CFL is modified to keep AQ max , the maximum change in absolute value of the dependent vari- 
ables, within user-specified limits. The rules used to increase or decrease CFL may be summarized as fol- 
lows: 

AQ miJ x< CHG1 => CFL = min[(DTFl)(CFL), CFLMAX] 

AQmax > CHG2 => CFL = max[CFL/DTF2, CFLMIN] 

AQmax >0.15 => CFL = CFL/2 

The time step Ax is then set using the same formulas as in the IDTAU = 1 option. 

IDTAU = 3 

r 

This option sets a global (i.e., constant in space) time step At equal to the input parameter DT(ITSEQ). 

IDTAU = 4 

For the first time step, this option is identical to the IDTAU = 3 option. After the first time step, 
however, At is modified to keep AQ m «, the maximum change in absolute value of the dependent variables, 
within user-specified limits. The rules used to increase or decrease At may be summarized as follows: 
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AQ max <CHGl => At = min[(DTFl)AT, DTMAX] 
AQ max >CHG2 => At = max[Ar/(DTF2), DTMIN] 
AQ m «>0.15 => At = At/2 


IDTAU = 5 

This option sets a local (i.e., varying in space) time step At computed at each grid point from the input 
parameter CFL(ITSEQ). I.e., at each grid point, 

At = (CFL)AT c yj. 

where At c /i is given above in the description of the IDTAU = 1 option. 

IDTA U_^_6 

For the first time step, this option is identical to the IDTAU = 5 option. After the first time step, 
however, CFL is modified to keep AQ m „, the maximum change in absolute value of the dependent vari- 
ables, within user- specified limits. The rules used to increase or decrease CFL are the same as m he 
IDTAU = 2 option. 


IDTAU = 7 

This option sets a global (i.e., constant in space) time step At with logarithmic cycling. The formula 
used is 

XRKyc- i) 


At = At 


At- 


nun\ k . 
^min 


where N = mod(n - 1 , N cyc ) and n is the current known time level. The time step At is thus cycled repeat- 
edly between At„„ and At„„ every N vc time steps. The values of At,™,, At„„, and N cyc are given by the 
input parameters DTMIN, DTMAX, and NDTCYC. 


IDTAU ~ 8 


This option sets a local (i.e., varying in space) time step At computed at each grid point using the pro- 
cedure of Knight and Choi (1989). The inviscid CFL limit At c/7 is first computed separately for each 
computational coordinate direction. Thus, at each grid point, 



Here U = + £,« + + &w, V=y, + r\ x u + rj y v + j fcw, and W= C, + £*« + G v + are the contravanant 

velocities without metric normalization, and a = -J yRT is the speed of sound. 


A pre limin ary value of At is then defined at each grid point using the input parameter CFL(ITSEQ). 
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Ar 0 = (CFL) min[(AT c/ ^j, (Ar^, (At^] 


The final value of At is then defined at each grid point as 

At = max[AT 0 , (At^j] 

Knight and Choi found that using this definition for At, rather than simply setting At — At 0 , resulted in 
faster convergence for problems with refined grid regions. This formulation assumes that flow is generally 
in the £ direction. 

IDTAU = 9 


This option is similar to the IDTAU = 8 option. The only difference is a viscous correction added to 
the definitions of the inviscid CFL limits, similar to that used by Cooper (1987). The inviscid CFL limits 
are now defined at each grid point as: 


( At c/7){ = 


( A ?cfl)r, = 


( Ar c/i); - 


U 

Ac 


V 

A V 


W 

AC 


+ a 


+ a 


+ a 



'2 P 

zl+el + g 

AC 

Re r P 

(AC ) 2 

/ 2 , 2 , 2 


2 , 2,2 

'J’lx + Vy + Vz 

, 2 11 

ri x +r] y + jj 7 

A»j 

Re r P 

(A»j ) 2 

aAx+ Cy + C 7 

, 2 P 

d+cj+d 

AC 

Re r P 

(AC) 2 


-1- i 


-i- i 


■.-I 


The rest of the procedure for computing At is the same as in the IDTAU = 8 option. 

Remarks 


1. In AQ m „, used in the IDTAU = 2, 4, and 6 options, the change in Ej has been e nded by 
Rl(y r — 1) + 1/2. This is equivalent to dividing the dimensional value E T by 


E 


T r ~ 


Pr RT r Pr u r 

y r ~ 1 2 


This makes the change in total energy the same order of magnitude as the other conservation variables. 

2. An error message is generated and execution is stopped if an illegal time step selection option is re- 
quested. 

3. A warning message is printed with the IDTAU = 2, 4, and 6 options if At or the CFL number is cut 
in half because AQ max >0.15. 

4. The Cray search routine ISAMAX is used in computing the maximum value of AQ m „ for all the 
equations. 
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Subroutine TREMAIN (CPUREM) 

Called by 

Calls 

Purpose 

MAIN 


Get CPU time remaining for the job. 


Input 

None, 

Output 

CPU REM Amount of CPU time remaining, in seconds. 

Description 

Subroutine TREMAIN computes the amount of CPU time remaining for the current job, in seconds. 

Remarks 

1. TREMAIN is a Cray Fortran library routine (Cray Research, Inc., 1989a). 
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Subroutine TURBBL 

Called by 

Calls 

Purpose 

INITC 

KEINIT 

MAIN 

BLIN 

BLOUT 

Manage computation of turbulence parameters using Baldwin- Lomax 
algebraic model. 


Input 


CP 

EP1 

* KBC1, KBC2, KBC3 
LWSET 


MU, LA, KT 

* Nl, N2, N3 
PRR 

* PRT 

U, V, W 

Output 


Specific heat c p . 

Minimum allowable numerical value. 

Boundary types for the £, rj, and £ directions. 

Flags specifying how wall locations are to be determined for the 
turbulence model; 0 if wall locations are to be found automatically 
by searching for boundary points where the velocity is zero, 1 if 
input using the LWALL parameters, 2 if input using the IWALL 
parameters. 

Laminar coefficient of viscosity fi h laminar second coefficient of 
viscosity X {t and laminar coefficient of thermal conductivity 

Number of grid points N u N 2 > and jV 3 , in the £, rj , and £ directions. 

Reference Prandtl number Pr r . 

Turbulent Prandtl number Pr , , or, if PRT < 0, a flag indicating the 
use of a variable turbulent Prandtl number. 

Velocities w, v, and w. 


LWALL1, LWALL2, LWALL3 Flags specifying wall locations for £, >/, and £ bound? -es, if not 

set in input. 

MU, LA, KT Effective coefficient of viscosity effective second coefficient of 

viscosity X, and effective coefficient of thermal conductivity k. 


Description 

Subroutine TURBBL manages the computation of the effective coefficient of viscosity, second coeffi- 
cient of viscosity, and coefficient of thermal conductivity using the algebraic eddy viscosity model of 
Baldwin and Lomax (1978). It is called from MAIN at the end of each step from time level n to n 4- 1, after 
the governing flow equations have been solved. The Fortran variables RHO, U, etc., are thus at the n+ 1 
level. The effective viscosity coefficient to be computed will therefore also be at the n + 1 level. This, of 
course, becomes the known n level for the next time step. 

The steps involved in computing the effective coefficients are as follows: 

1. Initialize the array for storing the turbulent viscosity /x r to zero. 

2. Determine wall locations by checking for zero velocity at the boundaries, unless wall locations are 
user- specified via the input LWALL or IWALL parameters, or unless boundary types are specified 
using the KBC parameters. 

3. Call BLOUT to compute (ji t ) 0iiUr at each interior grid point. 

4. Call BLIN to compute at each interior grid point. BLIN then sets ^ = min [(/XrW, (p,)*,,*]. 
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5. Define the necessary effective coefficients as follows: 

P = Mi + Pt 
X = /.[+ A r 
k = k[ + k t 

where = - 2 mA and k, is computed using Reynolds analogy as 

Pf p 
k ‘ Pr, 

The turbulent Prandtl number is either a constant specified in the input, or a variable computed usmg 
equation (9.17) of Volume 1. 

Remarks 

l. In the Fortran equation for the effective thermal conductivity, the factor PRR = Pr, is necessary for 
proper nondimensionalization of k,. 
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Subroutine TURBCH 


Called by 

CaHs 

Purpose 

MAIN 

EXECT 

PRODCT 

YPLUSN 

Manage computation of turbulence parameters using the Chien k-t 
model. 


Input 

CP 

EP1 

* KBC1, KBC2, KBC3 
LWSET 


MU, LA, KT 

* NTKE 

* Nl, N2, N3 

PRR 

* PRT 

U, V, W 

Output 


Specific heat c p . 

Minimum allowable numerical value. 

Boundary types for the rj, and £ directions. 

Flags specifying how wall locations are to be determined for the 
turbulence model; 0 if wall locations are to be found automatically 
by searching for boundary points where the velocity is zero, 1 if 
input using the LWALL parameters, 2 if input using the IWALL 
parameters. 

laminar coefficient of viscosity fi { , laminar second coefficient of 
viscosity X h and laminar coefficient of thermal conductivity k t . 

Number of k-t iterations per mean flow iteration. 

Number of grid points N\, N 2 , and V 3 , in the jj, and C directions. 

Reference Prandtl number Pr t . 

Turbulent Prandtl number Pr t) or, if PRT < 0, a flag indicating the 
use of a variable turbulent Prandtl number. 

Velocities u t v, and w at time level n . 


LWALL 1, LWALL2, LWALL3 Flags specifying wall locations for and C boundaries, if not 

set in input. 

MU, LA, KT Effective coefficient of viscosity jx, effective second coefficient of 

viscosity X, and effective coefficient of thermal conductivity k. 


Description 


Subroutine TURBCH manages the computation of the effective coefficient of viscosity, second coeffi- 
cient of viscosity, and coefficient of thermal conductivity using the low Reynolds number k-t two-equation 
turbulence model of Chien (1982). The k-t equations are uncoupled from the mean flow equations, lagged 
in time and solved separately. This allows maximum modularity in turbulence modeling. 

For each step from time level n to n + 1, the mean flow equations are solved first, using a time step 
At. The k-t equations are then solved, using NTKE time steps with a time step size of TFACT(At). 

The steps involved in computing the effective coefficients are as follows: 

1. Determine wall locations by checking for zero velocity at the boundaries, unless wall locations are 
user- specified via the input LWALL or IWALL parameters, or unless boundary types are specified 
using the KBC parameters. 

2. Call YPLUSN to compute the distance to the nearest solid wall and y + . To save storage, the distance 
is returned in the Fortran variable DUMMY. 
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3. Call PRODCT to compute the production rate of turbulent kinetic energy. To save storage space, the 
production rate is returned in the Fortran variable VORT. 

4. Call EXECT to advance the k-t equations in time using a time step of TFACT(At). 

5. Repeat steps 2-4 NTKE times. 

6. Define the necessary effective coefficients as follows: 

P = Pl+P r 

2 = 2 ;+ 2 , 

k = kj + k, 


where 2, = — 2^/3, and k, is computed using Reynold's analogy as 


Mr c £> 

k = — — Pr 
1 Pr, r 


The turbulent Prandtl number is either a constant specified in the input, or a variable computed using 
equation (9.17) of Volume 1. 


Remarks 

1. The scratch array DUMMY, from the common block DUMMY 1, is used to store the values of the 
distance to the nearest wall. The array is filled in subroutine YPLUSIV 

2. The Fortran array VORT, from the common block TURB1, is used to store the values of the pro- 
duction rate of turbulent kinetic energy. The array is filled in subroutine PRODCT. 

3. For equal mean flow and k-t time steps, use TFACT = 1/NTKE. 
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Subroutine UPDATE 


Called by 

Calls 

Purpose 

EXEC 


Update flow variables after each ADI sweep. 


Input 

IBASE, ISTEP 

* IHSTAG 
IV 
JI 

NPTS 


Base index and multiplication factor used in computing one- 
dimensional index for three-dimensional array. 

Flag for constant stagnation enthalpy option. 

Index in the "vectorized" direction, i v . 

Inverse Jacobian of the nonorthogonal grid transformation, J~ x . 
Number of grid points in the sweep direction, N . 


NR, NRU, NRV, NRW, NET Array indices associated with the dependent variables p, pw, pv, 

pw, and £ r . 


RHO, U, V, W, ET 
S 

Output 

RHOL, UL, VL, WL, ETL 
Description 


Static density p, velocities w, v, and w, and total energy Et at time 
level n. 

a 

Computed solution subvector, AQ. 


Static density p, velocities u, v, and w, and total energy E r at end 
of current ADI sweep. 


Subroutine UPDATE computes the primitive flow variables from the dependent variables AQ after each 
ADI sweep. For the first sweep the formulas are 

P*=p n + J A& 

k’= 4- (pV + /A&*) 


* 1 / n n , 

V = — (p V +JAQ 3 ) 


* 1 f 71 71 . ja A*\ 

w = — { P w + JAQt) 


Ej' — E'p + J&Qs 
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where A & through AQs are the dependent variables in delta form for the five governing equations. 33 For the 
second ADI sweep, the superscript * should be changed to ** on p, u, v, w, E T , and A Q. For the third ADI 
sweep, the superscript * should be changed to n + 1 on p, u,v,w, and Er, and to n on A Q. 

Remarks 

1. This subroutine uses one-dimensional addressing of three-dimensional arrays, as described in Section 

2 . 3 . 


33 These formulas are written for non-constant stagnation enthalpy. If constant stagnation enthalpy is assumed, there 
will be only four equations. 
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Subroutine UPDTKE 


Called by 

Calls 

Purpose 

EXECT 


Update k and t after each ADI sweep. 


DW 

DXI, DETA, DZETA 
E 

* FBCT1, FBCT2, FBCT3 

* IBCT1, IBCT2, IBCT3 
JI 

KBCPER 

KE 

NPT1, NPT2, NPT3 

* Nl, N2, N3 
RHO 

Output 

E 

KE 


A 

Dependent variable subvector AW" from downward LU sweep. 
Computational grid spacing A£, Aq, and A£. 

Turbulent dissipation rate t at time level n . 

Point-by-point J fe-e boundary condition values for the f , rj } and £ 
directions. 

Point-by-point k-t boundary condition types for the £, tj, and £ 
directions. 

Inverse Jacobian of the nonorthogonal grid transformation, J~K 

Flags for spatially periodic boundary conditions in the £, rj, and £ 
directions; 0 for non-periodic, 1 for periodic. 

Turbulent kinetic energy k at time level n. 

N u A^, and jV 3 for non-periodic boundary conditions, Ni- hi, 
N 2 + 1, and N z + 1 for spatially periodic boundary conditions in 
£, y \ , and £. 

Number of grid points N u N 2l and Nz, in the £, r \ , and £ directions. 
Static density p at time level n. 


Turbulent dissipation rate t at time level n + 1. and n. 
Turbulent kinetic energy k at time level n + 1. 


Description 

Subroutine UPDTKE computes the primitive flow variables k and c from the dependent variables 
AW" after a complete time step. The formulas are 

k n + ] = — l —(p n + l k n + MW?) 

n + 1 
P 

t " + 1 = — (P n + l c n +JAW%) 

p 

where A IF and AHA are the dependent variables in delta form for the k-t equations. 

Subroutine UPDTKE also explicitly computes the k and t values on the computational boundaries 
using the specified boundary conditions, as described below. 
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No Change From Initial Conditions , AA = 0 and' or As = 0 


Values for k and c are simply not updated. Therefore, their values on the boundaries remain the same 
as their initial or restart values. 

Specified, values, k — f and[qr t = [ 

Values of k and s are simply set equal to the specified values. 

Specified Two- Point Gradient in Coordinate Direction, dkjdf = f and! or dzjdf = [ 

Applying dkjd4> - fat the £ = 0 boundary, and using two-point one-sided differencing, gives 

^ 1 J, k = ^2 ,j, k 

At the £ = 1 boundary, 

^Ni,j,k ~ ^ATj — 1 ,j,k 

Analogous equations can easily be written for the tj and C boundaries, and for ds/dtp f 

Specified Three- Point Gmdienl in Coordinate Direction, dkjd^ = f andjor dcjd<t> =/ 

Applying dkld<j> - fat the { = 0 boundary, and using three-point one-sided differencing, gives 

f (4^2 J, k ~ ^-3 ,j, k ~~ 2fA£) 

*1 ,j, k = 3 


At the £ = 1 boundary, 

(fyvj - l J, k ~ ^.V, - 2,7, k + 2 fA£) 

%,, 7 , k = 3 

Analogous equations can easily be written for the rj and C boundaries, and for dejdf —f 

Linear Extrapolatl n 

Linearly extrapolating from the interior points for k at the £ = 0 boundary gives 

^1 J, k = 2^2 ,}, k ~ ^ 3 , 7 , k 

At the £ = 1 boundary, 

k ~ 2^,V, - 1 J, k~~ *ATj - 2,7, * 

Analogous equations can easily be written for the yj and £ boundaries, and for linear extrapolation of e. 

Remarks 

1 . The "no change from initial conditions" boundary' condition is applied simply by non-execution of the 
other boundary conditions. 

2. Periodic boundary' conditions are updated by setting the values of k and z at the lower boundary equal 
to the corresponding values at the upper boundary . 

3 When a specified gradient or linear extrapolation boundary condition is used, k and/or e at the bound- 
ary is forced to be positive by using the absolute value. This is done to avoid unphysical negative values 
that could result from poor initial profiles for k and/or e. 
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Subroutine VORTEX 


Called by 

Calls 

Purpose 

BLIX 

BLOUT 

OUTPUT 

YPLUSN 


Compute magnitude of total vorticity. 


Input 


DXI, DETA, DZETA 
ETAX, ETAY, ETAZ 
* Nl, N2, N3 
U, V, w 
XIX, XIY, XIZ 
ZETAX, ZETAY, ZETAZ 


Output 


VORT 


Description 


Computational grid spacing A£, Ayj, and AC- 
Metric coefficients rj xi v\ y , and y\ z . 

Number of grid points N u A 2 , and A 3 , in the $ t rj, and £ directions. 
Velocities u, v, and w . 

Metric coefficients £*, £ y , and £ z . 

Metric coefficients £ x , £.,, and £ r . 

Total vorticity magnitude. 


Subroutine VORTEX computes the magnitude of the total vorticity vector. This is defined as 



Using the chain rule, these can be rewritten in generalized nonorthogonal coordinates as 
1^1= {[(iyWf + + Zy W d ~ + T lz V r] + C,v c )] 2 

+ + Wv + ^0 ~ (Zx w S + + Cjc^c)] 2 

21 1/2 

+ [(<?JC V 5 + 1x v v + C,v c ) - (^Wj + r, y u v + C y u c )] j 


At interior points, the centered difference formula presented in Section 5.0 of Volume 1 is used to nu- 
merically compute the derivatives in the above equations. At boundary points, second-order one-sided 
difference formulas are used. 
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Subroutine WHENFLT (N,V, INC, VALUE, INDEX, NVAL) 


Called by 

Calls 

Purpose 

BLOUT 


Find all indices in an array whose elements are less than a specified 
value. 


Input 

v 

Number of elements to process in the vector (i.e 

A 

N = vector length if INC = 1, N = (vector length)/2 if L C — , 
etc.). 

V 

Vector to be searched. 

INC 

Skip distance between elements of V. For contiguous elements, 

INC = 1. 

VALUE 

Value to be searched for in the vector V . 

Output 

INDEX 

Vector of indices specifying which elements of V are less than 

VALUE. 

NVAL 

Number of values in V that are less than VALUE. 


Description 

Subroutine WHENFLT finds all indices in an array whose elements are less than a specified value. 


Remarks 

1 WHENFLT is a Cray search routine (Cray Research, Inc., 1989b). 
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Subroutine YPLUSN 

Called by 

Calls 

Purpose 

IMTC 

KEIMT 

TURBCH 

VORTEX 

Compute the distance to the nearest solid wall. 


Flags specifying wall locations for r\, and £ boundaries. 

Effective coefficient of viscosity fi. 

Number of grid points A'i , A 2 , and A 3 , in the rj t and £ directions. 
Reference Reynolds number Re r . 

Static density p at time level n. 

Cartesian coordinates x, y , and 2 . 


Output 

DUMMY 
YPLUSD 

Description 

Subroutine YPLUSN computes the minimum distance to the nearest solid wall and y* for every grid 
point in the computational domain. The steps involved are as followed: 

1. Call VORTEX to compute total vorticity magnitude . 

2. For every grid point in the computational domain, 

3. Compute the distance to each solid wall, and the corresponding wall values of the total vorticity 
magnitude, laminar viscosity, and density. 

4. Identify the nearest solid wall and select the corresponding distance to the wall y n , the wall total 
vorticity magnitude 1 0. wa u I , the wall laminar viscosity p wa ii, and the wall density p wM . 

5. Compute y* using 

+ _ Agfrl II I P vail 

y =J W Mwatf 


Distance to the nearest solid wall. 

Nondimensional distance y + from the nearest solid wall. 


Input 


LWALL1, LWALL2, LWALL3 
MU 

Nl, N2, N3 
RER 
RHO 
X, Y, Z 


Remarks 

1. The scratch anray DUMMY, from the common block DUMMY 1, is used to store the distance to the 
nearest solid wall. 

2. This subroutine will return very large values for YPLUSD and DUMMY if none of the boundaries are 
solid walls. 
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